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

1

Ответы и объяснения

2013-11-25T13:46:56+00:00
Держите.

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.