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

Question

Информатика

Агриппична

7 марта, 16:26

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

+5

Ответы (1)

Знаете ответ?

Милюша · 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.