Решу задачу в битах.
1) найдём вес одной точки на экране(мощность)
бит.
2) найдём вес всего изображения
1024*800*16=13107200 бит (1.56 кб)
3) уменьшим изображение
<span>13107200 / 2 = 6553600 бит
</span>4) узнаем количество точек(пикселей)
<span>6553600 / 16 = 409600 пикселей всего в изображении
</span>5) поищем изображение. для удобства поделим на 1024
<span>409600 / 1024 = 400 итого 1024х400
</span>возьмём ещё одно
<span>409600 / 800 = 512 итого 800х512
</span>p.s вроде так...
Использовать Чертежник
алг
нач
опустить перо
сместиться на вектор(-2,0)
сместиться на вектор(2,2)
сместиться на вектор(0,-4)
<span>кон</span>
<span>Const k = 10;
Var a,b,c,m,n : Integer;
Begin
For m:=1 to k do
For n:=1 to k do
Begin
a:=sqr(m)-sqr(n);
b:=2*m*n;
c:=sqr(m)+sqr(n);
Writeln(m:5,n:5,a:8,b:8,c:8);
end;
end.</span>
Ответ:
Program ship;
Uses crt,graph;
Var gd,gm: integer;
Begin
gd:=detect;
Initgraph(gd,gm,'');
Line(100,300,400,300);
Line(150,380,350,380);
Line(100,300,150,380);
Line(400,300,350,380);
Line(250,300,250,180);
Line(250,180,340,230);
Line(340,230,250,280);
Setfillstyle(9,blue);
Floodfill(160,340,15);
Setfillstyle(3,lightgreen);
Floodfill(270,210,15);
Readkey;
Closegraph;
End.
Объяснение: