Построить блок-схему к программе pascal ABC var

i,a:integer;

begin

a:=1;

for i:=1 to 55 do begin

if (i mod 5)=0 then

a:=a*i;

end;

writeln('Произведение =',a);

end.

232306    2   23.10.2020 12:37    0