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

Question

Информатика

Васята

15 апреля, 03:14

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

+4

Ответы (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.