Var i,s:integer;
begin
i:=5; s:=1;
while i<=55 do begin
s:=s*i;
i:=i+5;
end.
writeln(s);
Можно использовать конструкцию
H=1;
for i= 5 to 55 step 5 do
H=H*i;
Извините, могут быть неточности в синтаксисом, Паскаль использовал лет 15 назад, забыл...
Var i,s:integer;
begin
i:=5; s:=1;
while i<=55 do begin
s:=s*i;
i:=i+5;
end.
writeln(s);
end.
Можно использовать конструкцию
H=1;
for i= 5 to 55 step 5 do
H=H*i;
Извините, могут быть неточности в синтаксисом, Паскаль использовал лет 15 назад, забыл...