Question

Население города в 2004 г. составило 80000000 человек. Определите, в каком году население утроится, если ежегодный прирост населения 5%

Answer 1

Var g:integer; p:real;
begin
p:=80000000;
g:=2004;
while p<3*80000000 do begin p:=p+p*0.05; g:=g+1; end;
writeln;
writeln('в ',g,' году население увеличится в трое.');
end.