var
i:integer;
a:double;
begin
i:=3;
a:=50000;
while i>0 do
a:=a + a*0.07;
i:=i-1;
end;
writeln('Население = ', a:0:0);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
i:integer;
a:double;
begin
i:=3;
a:=50000;
while i>0 do
begin
a:=a + a*0.07;
i:=i-1;
end;
writeln('Население = ', a:0:0);
end.