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