Question

Составьте циклический алгоритм задачи. Заранее спасибо. Определить какая сумма будет на счету в банке через 10 лет, если первоначальный вклад составил S рублей, банк ежегодно начисляет P-процентов.

Answer 1

Const
t=10;
var p,i:integer;
b,s:real;
begin
write('Вклад равен ');
read(s);
write ('Под процентом ');
read(p);
b:=1+p/100;
for i:=1 to t do
s:=s*b;
write('Под процентами пролежавши 10 лет вклад накопил ',s:12:4,' рублей');
end.