{ Выберите программу или раздел при помощи графического манипулятора «Мышь» ! } Case User Of
'Задача 126' : Uses zadach126.pas; { Дана строка текста, состоящая из слов разделенных одним из знаков [#,$,*,-]. Если кол-во слов в предложении четно, поменяйте местами два центральных слова, а если нечетно ... }
'Задача 127' : Uses zadach127.pas; { Напечатать в возрастающем порядке все трёхзначные числа,
в десятичной записи кот. нет одинаковых цифр ... }
'Задача 128' : Uses zadach128.pas; { Дано натуральное число n. Верно ли, что сумма цифр этого числа является нечётной ... }
'Задача 129' : Uses zadach129.pas; { Натуральное число из n цифр является числом Армстронга, т.е. сумма его цифр возведенная в n степень, равна самому числу (153=1*1*1+5*5*5+3*3*3). Получить все числа Армстр ... }
'Задача 13' : Uses matrix13.pas; { Дана квадратная матрица A, найти A в кубе...матрица 5 на 5 ... }
'Задача 130' : Uses zadach130.pas; { Имеется n бактерий красного цвета. Через 1 такт времени красная бактерия меняется на зелёную, затем через 1 такт времени делится на красную и зелёную.Сколько будет всех б ... }
'Задача 131' : Uses zadach131.pas; { Дано число n.Выбросить из него все единицы и пятёрки, оставив порядок цифр.
Например: 527012 преобразуется в 2702 ... }
'Задача 132' : Uses zadach132.pas; { Дано натуральное число n. Выбросить из записи числа все чётные цифры. ... }
'Задача 133' : Uses zadach133.pas; { Дана таб a[m, n] содерж. числа 0, 1, 5 или 11.Посчитать кол-во четвёрок a[i, j], a[i+1, j], a[i, j+1], a[i+1, j+1] в каждой из которых все эл-ты разные. ... }
'Задача 134' : Uses zadach134.pas; { Сократимая ли дробь a/b? Дробь a/b несократимая, если НОД=1 ... }
'Задача 135' : Uses zadach135.pas; { Сост. прог. для опред. пройдёт ли кирпич с рёбрами a, b, c в прямоуг. отверстие со сторонами x, y. ... }
'Задача 139' : Uses zadach139.pas; { Вводится слово из файла INPUT.txt ;Удалить из слова символы так чтобы получ. палиндром.Ответ записать в файл OUTPUT.txt ... }
'Задача 14' : Uses nechet14.pas; { Сумма N нечётных чисел натурального ряда, начиная с К>0. N>0 и К>0. ... }
'Задача 141' : Uses zadach141.pas; { Сколькими различ способами можно надеть на нить семь бусин двух цветов-синего и белого. Напечатать возможные варианты. ... }
'Задача 143' : Uses zadach143.pas; { Сколькими различ способами можно раскрасить грани куба в четыре цвета.Напечатать возможные варианты. ... }
'Задача 144' : Uses zadach144.pas; { Грани куба можно раскрасить:a)все в белый цвет; б)все в чёрный; в)часть в белый цвет-часть в чёрный; Напечатать возможные варианты и их кол-во. ... }
'Задача 146' : Uses zadach146.pas; { Сколько различ. ожерелий можно сост. из 2-ух белых, 2-ух синих и 2-ух красных бусин.Напечатать возможные варианты и их кол-во. ... }
'Задача 147' : Uses zadach147.pas; { Напечатать словарь состоящий из четырёх букв непоторяющихся в слове ... }
'Задача 148' : Uses zadach148.pas; { Женщина шла на базар и разбила яйца, лежавшие у неё в корзине Она сказала, что не знает сколько яиц у неё было, но когда она брала по 2, 3, 4, 5 и 6 яиц то оставалось в о ... }
'Задача 149' : Uses zadach149.pas; { Из семи красных и восьми белых роз требуется составить букет из пяти роз. Перечислить все возможные варианты. ... }
'Задача 15' : Uses massiv15.pas; { Массив Т15[N] определить сумму и количество элементов массива кратных 5. 0<N<30 ... }
'Задача 150' : Uses zadach150.pas; { На клеточном листе бумаги размером M/N расположены прямоугольники. Задан массив M/N в котором элемент a[i, j]=1 если клетка листа (i, j) яв-ся частью прямоугольника, и a[ ... }
'Задача 151' : Uses zadach151.pas; { Определить кол-во слов в строке. Слова отделяются одним или несколькими пробелами ... }
'Задача 152' : Uses zadach152.pas; { Определить самое короткое и самое длинное слово в строке введённой с клавиатуры ... }
'Задача 154' : Uses zadach154.pas; { Слить массивы А и В по 100 элементов в массив С из 200 элементов так, чтобы элементы массива А имели в С нечётные номера ... }