Решите на паскале подрабатывая вечерами курьером, школьник решил накопить сумму в s рублей для покупки компьютера. в первый месяц он отложил r рублей. затем его вклад каждый раз был на d% больше предыдущего вклада. через сколько месяцев школьник сможет купить компьютер?

Объяснение:

var

 s, r:real;

 d, k:integer;

begin

 writeln('Input s = ');

 readln(s);

 writeln('Input r = ');

 readln(r);

 writeln('Input d = ');

 readln(d);

 k:=1;

 while (r<s) do begin

   r:=r + r*d/100;

   if (r<s)then k:=k+1;

 end;

 writeln(k);

 readln;

end.