Question

Гражданин 1 января открыл счёт в банке, вложив 100 000 р.каждый месяц размер вклада увеличивается на 3% от имеющийся суммы. составьте программу для определения суммы вклада через 1, 2, 12 месяцев. результат выведите в два столбца: в первый столбец -номер месяца, во второй- соответствующую сумму вклада. abc pascal

Answer 1

Program tref;
var a,i:integer;
begin
a:=100000;
for i:=1 to 12 do
begin

writeln(i,')',a);
a:=(a*103)div 100;
end;
readln;
end.