Question

Напишите программу в ABC Pascal для нахождения произведения чисел, кратных 5, находящихся в промежутке от 2 до 25.

Answer 1

var i, a: integer;

begin a:=1;

        for i:=2 to 25 do

        begin  

                 if (i mod 5)=0 then a:=a*i;

        end;

        writeln(a);

end.