2) разделить большой орех на 2 и маленький на 2 и дать по 1 кусочку(маленького и большого) мальчику а остальной пол большого и пол маленького дать карлсону. 1)для сбора урожая им не потребуется мышка. т.к есть сосед или соседка
Program zuevyuliya;
var a,sum,b:integer;
begin
write('a='); readln(a);
write('b='); readln(b);
for a:=a to b do
inc(sum,a);
writeln('sum=',sum);
<span>end.</span>
Var i:integer;
begin
for i:=1000 to 9999 do
if i mod 134 = 11 then writeln(i);
end.
Результат (только начало и конец, т.к. чисел много):
<span>1083
1217
1351
...
</span><span>9659
9793
9927</span>
В идеале вот:
<span>uses ABCObjects, GraphABC;
const
x0 = 300;
y0 = 300;
K = 10;
var
i, j, x1, y1, x, y, n: integer;
x2, y2, fi, t: real;
begin
x := x0;
y := y0;
n := 500;
for j := 0 to K - 1 do
begin
fi := 2 * pi * j / K;
for i := 1 to n do
begin
t := 2 * pi * i / n;
x2 := 100*cos(t)+ 150;
y2 := 20*sin(t);
x1 := round(x2 * cos(fi) - y2 * sin(fi));
y1 := round(x2 * sin(fi) + y2 * cos(fi));
if i > 1 then
Line(x + x0, y0 - y, x0 + x1, y0 - y1);
x := x1;
y := y1;
end;
end;
new CircleABC(x0,y0,50,clyellow);
end<span>.</span></span>
36 часов понадобится,так как столб 60 см,с 12 до 24 улитка ползёт 25 см,с 00 до 12 улитка ползёт 10 см,и с 12 до 24 улитка ползёт 25 см,склади 25+25+10=60 см