4. Население города ежегодно увеличивается на К%. Через сколько лет население города утроится?
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.
Не нашли ответ?
Похожие вопросы