PASCAL. Составить программу для решения следующей задачи: Банковский счёт с ежемесячной выплатой процентов предусматривает увеличение суммы банковского счёта на сумму, составляющую от суммы, хранящейся на счёте. При этом полученная прибавка суммы счёта суммируется с общим количеством денег на счёте и используется при расчёте прибавки на следующий месяц. Задан годовой процент 15%. определить сумму вклада y через m полных месяцев при известной начальной сумме вклада x. Значения x, m вводятся с клавиатуры. На паскале.
program BankDeposit; var x, y, m: integer; i: integer; interest: real; begin write('Введите начальную сумму вклада: '); readln(x); write('Введите количество месяцев: '); readln(m); interest := 0.15 / 12; // ежемесячный процент y := x; for i := 1 to m do begin y := y + round(y * interest); end; writeln('Сумма вклада через ', m, ' месяцев:', y); end.
var
x, y, m: integer;
i: integer;
interest: real;
begin
write('Введите начальную сумму вклада: ');
readln(x);
write('Введите количество месяцев: ');
readln(m);
interest := 0.15 / 12; // ежемесячный процент
y := x;
for i := 1 to m do
begin
y := y + round(y * interest);
end;
writeln('Сумма вклада через ', m, ' месяцев:', y);
end.