Население города едегодно увеличивается ** 1/40 наличного состава жителей ( сейчас в нем...

Question

Население города едегодно увеличивается на 1/40 наличного состава жителей ( сейчас в нем 240 000) через сколько лет население города утроится? pascal

Answer 1

Var a,an,n:integer;
begin
a:=240000;
an:=a;
n:=0;
while an<3*a do <br> begin
 n:=n+1;
 an:=an+an div 40;
 end;
writeln('n = ',n);
end.

Результат:
n = 45

Comments

дай бог тебе здоровья.