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); ЕСЛИ НЕ найдено ТО найдено := ВКЛ КОН КОН КОН; ЕСЛИ НЕ найдено ТО Вывод.Цепь("нет") КОН
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);
ЕСЛИ НЕ найдено ТО найдено := ВКЛ КОН
КОН
КОН;
ЕСЛИ НЕ найдено ТО Вывод.Цепь("нет") КОН
КОН Задание.