program k7;
var sum:real;
i:integer;
begin
sum := 8000;
for i := 1 to 7 do
sum := sum+(sum*0.04);
end;
write(sum);
end.
Объяснение:
program k7;
var sum:real;
i:integer;
begin
sum := 8000;
for i := 1 to 7 do
begin
sum := sum+(sum*0.04);
end;
write(sum);
end.
Объяснение: