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

1

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

2014-03-03T15:52:19+00:00
Какой язык программирования?

паскаль
var
i: byte;
p: integer;
begin
p:=1;
for i:=5 to 20 do
if (i mod 2=0)and(i mod 5=0) then
p:=p*i;
writeln('p = ',p);
end.
а почему 2=0
Упс, там строчка так выглядеть будет
If (i mod 5=0) then