Var a:array[1..10] of real; i:integer;
begin
for i:=1 to 10 do
a[i]:=(2*i-1)/cos(i);
for i:=1 to 10 do
writeln(i,'->',a[i]);
readln;
end.<span>
</span>
1833 будет <span>110001 111000 110011 110011
-1833 будет </span><span>101101 110001 111000 110011 110011
</span>
Чисто подбором
1
+3 = 4
*2 = 8
+3 = 11
*2 = 22
*2 = 44
+3 = 47
ровно 6 шагов
Я, конечно, не художник, но надеюсь это похоже на ёлки.
uses GraphABC;
begin
For var i := 0 to 4 do
begin
SetBrushColor(clGreen);
FillPie(80 + 120 * i, 100, 25, -50, -130);
FillPie(80 + 120 * i, 115, 40, -50, -130);
FillPie(80 + 120 * i, 135, 60, -50, -130);
FillPie(80 + 120 * i, 160, 75, -50, -130);
SetBrushColor(clBrown);
FillRectangle(74 + 120 * i, 234, 86 + 120 * i, 245)
end;
end.
5+7=12
5 у первого
7 у второго
задача стара как мир