4. Население города ежегодно увеличивается на К%. Через сколько лет население города утроится?

Question

Информатика

Митря

19 июня, 12:47

4. Население города ежегодно увеличивается на К%. Через сколько лет население города утроится?

+1

Ответы (1)

Знаете ответ на вопрос?

Зинуша · Answer 1

Var k:real;

a, b, l:integer;

begin

Write ('Население города: ') ; read (a) ;

Write ('На сколько % будет увеличиваться население: ') ; read (k) ;

k:=k/100;

b:=3*a;

while a<=b do begin

a:=a*k+a;

l:=l+1;

end;

Writeln ('Население города утроится через ', l,' лет (года) ') ;

end.