Работа в Паскале. Банк начисляет на вклады 5% каждый месяц(т.е. каждый месяц вклад увеличивается на 5% без участия вкладчика). Напечатать таблицу увеличения суммы вклада по месяцам на год. Сумма вклада вводится с клавиатуры.
Ответы
Ответ дал:
1
Program vklad;
Var
i: integer;
sum: real;
const k: array [1..12] of string=('январь','февраль','март','апрель','май','июнь','июль','август','сентябрь','октябрь','ноябрь','декабрь');
Begin
write('Введите первоначальную сумму вклада: ');
readln (sum);
writeln ('| МЕСЯЦ | CУММА |');
writeln ('|___________________________________|');
for i := 1 to 12 do
begin
sum:=sum*1.05;
writeln ('| ', k[i]:8, ' | ',sum:12:2 , ' |');
end;
end.
Приложения:
![](https://st.uroker.com/files/441/441fa99842cdd0e1933b480adca5fb1e.png)
Вас заинтересует
1 год назад
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад