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

Question

Карвер

5 января, 18:39

+1

Ответы (1)

Знаете ответ на вопрос?

Абдольреза · 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.