700 * 1024 * 1024 = 734003200 байтов;
734003200 * 8 = 5872025600 битов.
Var P,S,t,g:real;begin write('введите массу стола '); read(t); S:=100; g:=10; P:=(g*t)/S;write('давление на пол, создаваеммое столом равно ',P);end.
(если смотрит вверх, поворачиваем его на 45град на лево)
Треугольник
{
вперед (50);
лево (90);
вперед (50)
лево (135)
вперед (70.71)
} (прописали процедуру треугольника, отлично) (если не будут стороны стыковаться, то необходимо будет больше вперед сделать или наоборот меньше)
Квадрат (если вверх смотрит)
{
вперед 50
лево 90
вперед 50
лево 90
вперед 50
лево 90
вперед 50
лево 90
} (вот и процедура квадрата)
(теперь их походу нужно совмещать)
(допустим что мы стоим на середине поля)
начнем...
трегольник;
назад 35
право 90
вперед 2
налево 90
вперед 25
право 90
вперед 50
на лево 180
(прописуем процедуру квадрата: "квадрат;")
квадрат;
(дальше остальные три точно также)
вперед 50
право 90
вперед 60 (примерно, точно не скажу)
лево 90
(процедура квадрат)
квадрат;
вперед 90
лево 90
вперед 10(примерно, точно не скажу)
лево 135
(и процедура треугольника)
треугольник;
последний сам попытайся, а то я уже там почти запутался, главное запомни, перо подымешь, чтобы не видели каракули лишние, а опустишь лишь когда видишь что подходит где стоишь
2 chisla
var a,b:integer;
begin
read (a , b);
if (a>b) then
write (a)
else
write (b);
end.
3 chisla
var a,b,c:integer;
begin
read (a , b , c);
if (a>b>c) then
write (a)
else if (b>a>c) then
write (b)
else if (c>a>b) then
write (c)
end.
Программа на паскале внизу. Массив данных заполнен случайными числами.