Ответ:Pascal
1 program lab;
2 var
3 s:real;
4 i,n:integer;
5 begin
6 writeln('введите кол-во лет и сумму');
7 readln(n,s);
8 for i:=1 to n do
9 s:=s+s*0.03;
10 writeln(s);
11 end.
Объяснение: примерно так.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:Pascal
1 program lab;
2 var
3 s:real;
4 i,n:integer;
5 begin
6 writeln('введите кол-во лет и сумму');
7 readln(n,s);
8 for i:=1 to n do
9 s:=s+s*0.03;
10 writeln(s);
11 end.
Объяснение: примерно так.
var (S,N):=ReadReal2('Введите сумму вклада и количество лет');
Write('Сумма станет ',S*1.03**n);
end.