Составить программу нахождения произведения всех чисел от 5 до 20 кратным 5

1

Ответы и объяснения

  • Участник Знаний
2014-03-03T18:59:39+00:00
Var i,pr:integer;
begin
pr:=1;
for i:=5 to 20 do
begin
if (i mod 5 = 0) then pr:=pr*i;
end;
writeln (pr);
end.