Программа подсчитывающая количество месяцев по вкладу
Гражданин 1 декабря открыл счет в банке, вложив А рублей. Через
каждый
месяц вклад увеличивался на 2.5 процента от имеющейся суммы. Определить,
через сколько месяцев вклад достигнет суммы больше, чем В рублей.
Решение:
Program grajdanin;
var m:integer;
a,b:real;
BEGIN
write('A=');readln(a);
write('B=');readln(b);
m:=0;
while (a<=b) do begin
m:=m+1;
a:=a+(a*0.025);
end;
writeln('через ',m,' месяцев');
readln;
END.
|
| Категория: Простые задачи | Добавил: deespe (29.01.2011)
|
| Просмотров: 1091
| Рейтинг: 0.0/0 |
|
