Question

Написать программу которая рассчитывает количество населения города Мульти, если количество жителей ежегодно увеличивается на 7%. В текущем году оно составляет 50 000 жителей. Вычислите, какой будет численность жителей в городе через 3 года.

Answer 1

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.