Var n,s,k:integer;
begin
// 1
n:=21000;
s:=n;
for k:=2 to 5 do
begin
n:=round(n*1.04);
s:=s+n;
end;
writeln('s = ',s);
// 2
n:=21000; k:=1;
while n<2*21000 do<br> begin
n:=round(n*1.04);
k:=k+1;
end;
writeln('k = ',k,' n = ',n);
end.
Результат:
s = 113745
k = 19 n = 42544