// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
uses GraphABC;
begin
SetFontColor(clRed);
SetFontSize(16);
TextOut(50,50,'Красный свет - дороги нет!');
Pen.Width:=3;
DrawRectangle(140,100,240,300);
Pen.Width:=1;
Brush.Color:=clRed;
Circle(190,150,20);
Brush.Color:=clYellow;
Circle(190,200,20);
Brush.Color:=clLightGreen;
Circle(190,250,20);
end.
1.<span>Пуск -- Выполнить.дальше не знаю.</span>
1) 184 / 8 = 23 байт;
2) 14336 / 1024 = 14 кбайт
3) 13312 / 1024 = 13 мбайт
Знайдемо об*єм куба: 6*6*6=216 см³.
Густина срібла 10500 кг\м³=10,5 г\см.
Маса злитка=об*єм*густину=216*10,5=2268 г.
Відповідь: 2268 г.