А) A1*A1*A1+A2*A2*A2+A3*A3, где а1,а2,а3 ячейки с а,b,c
Ответ:
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.
Объяснение:
1 мегабайт = 1024 килобайта
1 килобайт = 1024 байт
512*1024*1024=536870912 однобайтовых ячеек
Http://ru.calameo.com/books/0030957477988df8779b5