Составьте блок схему для этого: ar k,n:integer;
begin
k:=1000; n:=1;
while k<30000 do
begin
k:=k+k;
n:=n+1;
end;
writeln('Это произошло на ',n,'-й день');
end.

serbinaluba66cet    3   25.12.2020 20:34    0