Вы положили в банк 1500 рублей определите сколько денег будет на вашем вкладке через 1 год если каждый месяц увеличивается на 0.76% от суммы предыдущего месяца

Var a,b,c:integer;

Begin

While a<>0 do

Begin

A:=12;

B:=1500;

B:=B*0,076+B;

End;

Writeln(‘VASHE chisel ’, B);

End.

Закинь в паскаль узнаешь ответ

var i:integer;s:real;

begin

 s:=1500;

 for i:=1 to 12 do

 begin

   s:=s+s*0.76;

 end;

 writeln(s);

end.