Ответ:
var
i:integer;
x:real;
begin
x:=10000;
while x<20000 do
x:=x*1.05;
i:=i+1;
end;
writeln('Ответ: ',i);
end.
Объяснение:
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
var
i:integer;
x:real;
begin
x:=10000;
while x<20000 do
begin
x:=x*1.05;
i:=i+1;
end;
writeln('Ответ: ',i);
end.
Объяснение: