<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(5,-50,50); a.Println;
a.Sort; a.Println
end.
<u>Пример</u>
-5 19 -32 34 20
-32 -5 19 20 34
1. Выключи комп.
2. Включи и при загрузке зажми F9 .
3. Выбери в меню восстановление запуска.
4. Компьютер вернется до того момента, когда он еще запускался.
5. Зайди в Панель управления, поставь "Просмотр" - "Крупные значки" и зайди в "Центр обновления Windows" потом кликнуть "Предоставить мне выбор параметров" и поставь "Не проверять наличие обновлений"
Ну и всё, если не получается, то лучше уже винду переустановить.
Переводить в десятичную и решать в ней, результат потом переводить обратно
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (a, b) := ReadReal2;
Println(a > b ? a * b : a + b)
end.
1)4 ( 38 символов каждый по 16 бит будет 608 бит)
2)3 ( 9кбайт = 9*1024*8 бит, т.е строк будет (9*1024*8)/ (6*48*8) = 32 )
3)4 ( 4 < 5 и 4>=4 )
4)3 ( 23 <100 и 23 не четное )
5)1 ( Путь A-B-E-C )
6)1 ( ну тут мне реально лень писать вроде итак очевидно :3 )
Вроде так ⊙_ರೃ