var a:real;
i:integer;
begin
a:=10;
for i:=1 to 7 do
a:=a+(a*0.1);
end;
write(a,' ');
end.var a:real;
end.
Объяснение:
var a:real;
i:integer;
begin
a:=10;
for i:=1 to 7 do
begin
a:=a+(a*0.1);
end;
write(a,' ');
end.var a:real;
i:integer;
begin
a:=10;
for i:=1 to 7 do
begin
a:=a+(a*0.1);
end;
write(a,' ');
end.
Объяснение: