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

Question

Информатика

Нюша

17 августа, 07:58

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

+5

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