Question

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

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.