Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.