Циклическая задача

[maria345]

Циклическая задача

циклическая задача
население города ежегодно увеличивается на К%, через сколько лет население города утроится.

 

[Vladimir_S]

циклическая задача
население города ежегодно увеличивается на К%, через сколько лет население города утроится.

Да ну... детский сад прям... ну пожалуйста:

VAR
 K:BYTE;
 N:Word;
 Coef:Real;
BEGIN
 Write('K(%)= ');
 ReadLn(K);
 Coef:=1;
 N:=0;
 Repeat
  Inc(N);
  Coef:=Coef*(1+0.01*K);
 Until Coef>=3.0;
 Writeln('After ',N,' years');
 ReadLn;
END.