Начальный вклад в банке равен 1000 руб. Через каждый месяц размер вклада увеличивается на P процентов от имеющейся суммы

Категория: Delphi/Pascal
2013-03-04 16:37:41

По данному P определить, через сколько месяцев размер вклада превысит 1100 руб., и вывести найденное количество месяцев K (целое число) и итоговый размер вклада S (вещественное число). (P — вещественное число, 0 < P < 25).

code: #pascal
program while15;
 
uses crt;
 
var
  p,s:real;
  k:integer;
begin 
  clrscr;
  write('p=');
  read(p);
  s:=1000;
  k:=0;
while s < 1100 do
  begin
    s:=s+p;
    inc(k);
  end;
writeln;
if (p > 0)and(p < 25) then
  begin
    writeln('Через ', k ,' месяцев');
    writeln('Результат ', s:2:2);
  end
else 
  writeln('0<P<25');
 
  readkey;
end.
Поделиться:

Похожие статьи:

теги: сумма, количество, вещественное, задача