//PascalABC.NET 3.1 сборка 1200
begin
var n := ReadInteger('n =');
var X := ArrRandom(n, -99, 99);
X.Println;
var Y := ArrRandom(n, -99, 99);
Y.Println;
for var i := Low(X) to High(X) do
if Y[i] > X[i] then Swap(Y[i], X[i]);
writeln();
X.Println;
Y.Println;
end.
===== PascalABC.NET =====
begin
var s := ReadlnString;
var i := Length(s) div 2;
Write('Символ "', s[i], '"')
end.
0,5кБайт = 512Байт
128бит = 16 Байт
512Байт/16Байт=32
Ответ: Объём первого сообщения в 32 раза больше второго.
Использовать Черепаха
алг
нач
опустить хвост
вперед(100)
влево(90)
вперед(100)
влево(90)
вперед(100)
влево(90)
вперед(100)
влево(90)
вперед(100)
влево(45)
вперед(70.7)
влево(90)
вперед(70.7)
<span>кон</span>