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

Question

Информатика

Доса

14 июня, 03:57

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

+4

Ответы (1)

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

Танюша · Answer 1

Var a, an, n:integer;

begin

a:=240000;

an:=a;

n:=0;

while an<3*a do

begin

n:=n+1;

an:=an+an div 40;

end;

writeln ('n = ', n) ;

end.

Результат:

n = 45