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

Question

Информатика

Анисья

18 ноября, 16:35

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

+2

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