В сберкассу на трехпроцентный вклад положили S рублей. Какой станет сумма вклада через N лет? Надо решить с пост условием и параметром
Ответы
Ответ дал:
0
Держите.
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.
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.
Похожие вопросы
2 года назад
2 года назад
10 лет назад
10 лет назад
10 лет назад