Срочно! Помогите написать программу на паскале!! !
Человек сделал вклад в банк в размере s рублей, банк принимает вклады по 10% годовых. Определите через сколько лет величина вклада станет равна s1 при условии, что, начиная со второго года, проценты начисляются к новой сумме вклада.
Ееех, друг) Тут тебе никто бесплатно не поможет. Все таки, время программиста - дорого стоит.
тут нужно составить формулу и все.
сделаю полностью за 10% от зачета ;))) особенно пиво ))))
$ cat proc.pas
var s: real; { текущая сумма вклада }
s1: real; { конечная сумма вклада }
pr: real; { проценты годовых 0 < pr < 1 }
yr: byte; { срок вклада в годах }
begin
write('s: '); read(s);
write('s1: '); read(s1);
write('pr: '); read(pr);
yr := 0;
repeat
s := s + s * pr;
inc(yr);
until s >= s1;
writeln('yr = ', yr, ', s = ', s:7:1);
end.
$ ./proc
s: 1000
s1: 15000
pr: 0.35
yr = 10, s = 20106.6
⇢