1.
var i,s:integer;
begin
s:=0;
for i:=1 to 100 do
if (i mod 3=0)and(i mod 6<>0) then s:=s+i;
writeln('s = ',s);
end.
Результат:
s = 867
2.
var i:integer;
begin
for i:=10 downto 2 do write(i*i,', ');
writeln(1,'.');
end.
Результат:
100, 81, 64, 49, 36, 25, 16, 9, 4, 1.
3.
var x,y,h:real; i:integer;
begin
h:=0.5;
x:=0-h;
for i:=1 to round((5-0)/h)+1 do
begin
x:=x+h;
if x<=2 then y:=x*x+x else y:=x*x+sqrt(x);<br> writeln(x:4:1,y:8:2);
end;
end.
Результат:
0.0 0.00
0.5 0.75
1.0 2.00
1.5 3.75
2.0 6.00
2.5 7.83
3.0 10.73
3.5 14.12
4.0 18.00
4.5 22.37
5.0 27.24