Нужна блок схема к программе
var n,i: integer;
f: real;
begin
readln(n);
i: =0;
f: =1;
while ibegin
i: =i+1;
f: =f*i;
end;
write(n,'! =',f: 0: 0);
readln
end.

vikagalimzhano    1   04.09.2019 18:21    1