в сберкассу на трехпроцентный вклад положили s тенге. какой станет сумма вклада через N лет?
program abc;
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
write(Введеите сумму вклада S = );
readln(s);
write(Введеите количество лет N = );
readln(n);
for i:=1 to n do
s:=s+0.03*s;
writeln;
writeln(Через ,n, лет сумма вклада составит ,s:1:2, тенге);
end.
Оцени ответ
