var i,s:integer;
begin
s:=0;
for i:=1 to 10 do
write(10*i,' ');
s:=s+10*i;
end;
writeln;
writeln('s = ',s);
end.
Результат:
10 20 30 40 50 60 70 80 90 100
s = 550
Объяснение:
var i,s:integer;
begin
s:=0;
for i:=1 to 10 do
begin
write(10*i,' ');
s:=s+10*i;
end;
writeln;
writeln('s = ',s);
end.
Результат:
10 20 30 40 50 60 70 80 90 100
s = 550
Объяснение: