Question

Напишите программу в Паскале (срочно!!!): Найти произведение чисел, оканчивающихся на 5, в промежутке от 1 до 100.

Answer 1

var i:integer;

p:int64;

begin

p:=1;

for i:=1 to 100 do if i mod 10 = 5 then p:=p*i;

writeln(p);

end.