Объяснение:
2. var n,i:integer;
sum:real;
begin
write('Введите сумму вклада:');readln(sum);
write('Введите продолжительность вклада:');readln(n);
for i:= 1 to n do
sum:=sum+(sum*0.02);
writeln('Итоговая сумма ',sum:8:2);
readln;
end.
Объяснение:
2. var n,i:integer;
sum:real;
begin
write('Введите сумму вклада:');readln(sum);
write('Введите продолжительность вклада:');readln(n);
for i:= 1 to n do
sum:=sum+(sum*0.02);
writeln('Итоговая сумма ',sum:8:2);
readln;
end.