(Pascal) Вводится последовательность из M элементов. Каждый элемент последовательности – цифра (то есть находится в диапазоне от 0 до 9). Сформировать число N, считая первый элемент последовательности младшим разрядом. Например, дана последовательность 5, 4, 3, 2, 1, тогда десятичное число формируется следующим образом: 5+4*10+3*100+2*1000+1*10000=12345.
Unix - это семейство ОС, основанные на идеях (модульным дизайн, т.е. на каждую задачу отдельная утилита; взаимодействие через единую ФС; работа с утилитами через командную оболочку, sh и его вариации) проекта AT&T Unix.
Linux - это семейство Unix-подобных ОС на базе ядра Linux. Хотя стоит уточнить, что традиционно системами Linux считаются те, что используют программы проекта GNU.
"MacOS" не существует. Ранее существовала Mac OS, но после 9 версии она была переименована в macOS (различия macOS и Mac OS очень большие). Это проприетарное ПО, разработанное компанией Apple. Основой macOS является Unix-система Darwin. То есть macOS тоже относится к семейству Unix.
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём ИЗ "...\Отделы\Обмен\", Матем ИЗ "...\Отделы\Числа\";
ПЕР
массив: РЯД 30 ИЗ ЦЕЛ;
сч, число: ЦЕЛ;
найдено: КЛЮЧ;
УКАЗ
ОТ сч := 0 ДО РАЗМЕР(массив) - 1 ВЫП
массив[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 65)) + 20;
Вывод.ЧЦел("%d ", массив[сч], 0, 0, 0)
КОН;
Вывод.Цепь("^");
число := Приём.Число();
Вывод.Цепь("^");
найдено := ОТКЛ;
ОТ сч := 0 ДО РАЗМЕР(массив) - 1 ВЫП
ЕСЛИ массив[сч] > число ТО
Вывод.ЧЦел("%d ", массив[сч], 0, 0, 0);
ЕСЛИ НЕ найдено ТО найдено := ВКЛ КОН
КОН
КОН;
ЕСЛИ НЕ найдено ТО Вывод.Цепь("нет") КОН
КОН Задание.