сумма s рублей положена в сбербанк при этом ежегодный прирост ...

Настя

program raf105;

var

 s,p,n: real;

 i,let: integer;

begin

write('Введите положенную сумму: ');

readln(s);

write('Введите ежегодный прирост (%): ');

readln(p);

write('Введите желаемую сумму: ');

readln(n);

while s < n do

begin

 let+= 1;

 s+= s/100*p;

end;

writeln('Первоначальная сумма увеличится до желаемой через ',let,' л.');

end.

Язык PascalABC