Question

PASCAL. Составить программу для решения следующей задачи: Банковский счёт с ежемесячной выплатой процентов предусматривает увеличение суммы банковского счёта на сумму, составляющую от суммы, хранящейся на счёте. При этом полученная прибавка суммы счёта суммируется с общим количеством денег на счёте и используется при расчёте прибавки на следующий месяц. Задан годовой процент 15%. определить сумму вклада y через m полных месяцев при известной начальной сумме вклада x. Значения x, m вводятся с клавиатуры. На паскале.

Answer 1

Program Bank;
var x: real;
i,m: integer;
begin
write('Введите сумму начального вклада: ');
readln(x);
write('Введите кол-во месяцев: ');
readln(m);
for i:=1 to m do
x := x + (x*0.15/12);
writeln('Ваш вклад за ', m, ' месяцев: ', x:0:2)
end.

Answer 2

Program Bank;
Var  y, x, m, P: real;
Begin
 P := 15;
  WriteLn('Введите ваш изначальный вклад и кол-во месяцев,через которое хотите узнать сумму вклада.');

  ReadLn(x, m);

  if m = 12 then  
Begin   
y := x + (x * p / 100);   
WriteLn('Ваш вклад за год:', y); 
End; 

if m < 12 then 
Begin   
y := x + (x * (p / m) / 100);   
 WriteLn('Ваш вклад за ', m, ' месяцев:', y:0:2); 
End;

End.