ДАМ 80 БАЛЛОВ! напишите на паскале АВС В сберегательный банк сделан вклад А рублей из расчета Т процента годовых.Какую сумму получит вкладчик через n лет?
//Pascal var A, T, p: real; n, i: integer; begin write('Введите сумму вклада(A) = '); readln(A); write('Введите процент годовых(T) = '); readln(T); write('Введите срок(лет)(n) = '); readln(n); p := A * T / 100; for i := 1 to n do A := A + p; writeln('Итоговая сумма с учетом % по вкладам = ', A); end.
Answers & Comments
//Pascal
var
A, T, p: real;
n, i: integer;
begin
write('Введите сумму вклада(A) = '); readln(A);
write('Введите процент годовых(T) = '); readln(T);
write('Введите срок(лет)(n) = '); readln(n);
p := A * T / 100;
for i := 1 to n do A := A + p;
writeln('Итоговая сумма с учетом % по вкладам = ', A);
end.