Var i: integer;
begin
for i := 13 to 60 do
if(i mod 3 = 0) then write(i:3);
<span>end.</span>
Вот держите:
var n,i,l,m:integer; sum:real;
begin
readln(n);
sum:=1; l:=1;
while m<>n do begin
m:=m+2;
sum:=sum-((1/m)*l);
l:=l*-1;
end;
writeln(sum);
end.
Var a:array[1..15] of integer;
i,b: integer;
begin
b:=1;
for i:=1 to 15 do readln(a[i]);
for i:=1 to 15 do if a[i] mod 2 =0 then b:=b*a[i];
writeln(b);
end.
2
Т.к. он вперед на 3 красит и назад на 3 красит и повторяет этот цикл 6 раз. по одним и тем же клеткам