Question

Работа в Паскале. Банк начисляет на вклады 5% каждый месяц(т.е. каждый месяц вклад увеличивается на 5% без участия вкладчика). Напечатать таблицу увеличения суммы вклада по месяцам на год. Сумма вклада вводится с клавиатуры.

Answer 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.