Question

В сберкассу на трехпроцентный вклад положили S рублей. Какой станет сумма вклада через N лет?  Надо решить с пост условием и параметром

Answer 1

Держите.

Var s:real;
i,n:integer;
Begin
Writeln('Введите количество лет и сумму Вашего вклада');
Readln(n,s);
For i:=1 to n do
s:=s+s*0.03;
Write(s); 
Readln;
End.
___________
Var s:real;
i,n:integer;
Begin
Writeln('Введите количество лет и сумму Вашего вклада');
Readln(n,s);
i:=1;
Repeat
s:=s+s*0.03;
inc(i);
Until i>n;
Write(s);
Readln;
end.