<em>// PascalABC.NET 3.2, сборка 1449 от 23.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
a.Sort; a.Println
end.
<u>Пример</u>
n= 17
22 15 -9 3 5 -13 6 -40 -8 -16 22 -20 -29 -26 10 -43 -6
-43 -40 -29 -26 -20 -16 -13 -9 -8 -6 3 5 6 10 15 22 22
Ну. некоторые из них ложные.ТАМ ГДЕ НАПИСАНО РЯДОМ Л ЭТО ЛОЖ А ТАМ ГДЕ И ЭТО ИСТИНА
Ответ:
Х = 1
Объяснение:
Составим уравнение приводя числа в 10 СС
Х * 16^2 + В * 16^1 + 9 * 16^0 + 6 * 8^2 + 5 * 8^1 + Х * 8^0 = 866
Х * 256 + 11 * 16 + 9 * 1 + 6 * 64 + 5 * 8 + Х * 1 = 866
256Х + 176 + 9 + 384 + 40 + Х = 866
256Х + Х = 866 - 176 - 9 - 384 - 40
257Х = 257
Х = 257 / 257
Х = 1
Проверим
1В9 (16) = 1 * 16^2 + В * 16^1 + 9 * 16^0 = 1 * 256 + 11 * 16 + 9 * 1 = 256 + 176 + 9 = 441
651 (8) = 6 * 8^2 + 5 * 8^1 + 1 * 8^0 = 6 * 64 + 5 * 8 + 1 * 1 = 384 + 40 + 1 = 425
441 + 425 = 866
Program z1;
var x,y:integer;
begin
readln(x,y);
if x>y then writeln(x) else writeln (y);
end.