PROGRAM7510.BAS

{* Задачи *}

{ Выберите программу или раздел при помощи графического манипулятора «Мышь» ! }
Case User Of
  •  'Pадача301' : Uses zadacha301.pas; { Вывести число,меньшее n, с максимальной суммой делителей ... }
  •  'Задаача202' : Uses zadach202.pas; { Вывести четные числа от 2 до 24 в строки с таким же номером и столбцы, равные произведению 2*х. ... }
  •  'Задача 35' : Uses zadach35.pas; { ... }
  •  'Задача 5' : Uses zadach5.pas; { Определение чётности или нечётности числа ... }
  •  'Задача1' : Uses zadach1.pas; { Cуммирование всех чётных чисел в пределе 1-й сотни ... }
  •  'Задача10' : Uses zadach10.pas; { Разработать алгоритм решения в соответствии с заданием: матрица D(10, 10), записать на место отрицательных элементов матрицы нули, а на место положительных ¾ ... }
  •  'Задача10' : Uses zadach10.pas; { Записать в массив Y элементы массива X, имеющие четные индексы, а в массив Z элементы, имеющие нечетные индексы; ... }
  •  'Задача100' : Uses zadach100.pas; { Проверить, все ли элементы одномерного массива разные. ... }
  •  'Задача101' : Uses zadach101.pas; { Составить перечень значений элементов одномерного целочисленного массива. ... }
  •  'Задача102' : Uses zadach102.pas; { Ввести двумерный массив M x N. Определить сумму элементов каждой строки. ... }
  •  'Задача103' : Uses zadach103.pas; { Ввести двумерный массив M x N. Определить максимальные значения для каждого столбца. ... }
  •  'Задача104' : Uses zadach104.pas; { Ввести двумерный массив M x N. Определить произведение элементов K-й строки (K вводится с клавиатуры), значение которых лежит в диапазоне от 1 до 9. ... }
  •  'Задача105' : Uses zadach105.pas; { Ввести двумерный массив N x N. Определить минимальное значение для элементов, лежащихна главной диагонали, и максимальные значения для элементов, лежащих на побочной диаг ... }
  •  'Задача106' : Uses zadach106.pas; { Ввести двумерный массив N x N. Определить произведение элементов, лежащих выше побочной диагонали. ... }
  •  'Задача107' : Uses zadach107.pas; { Ввести двумерный массив N x N. Определить среднее арифметическое элементов, лежащих ниже главной диагонали. ... }
  •  'Задача108' : Uses zadach108.pas; { Дискета 3,5" вмешает 1,44 Мбайт. Рукопись содержит 450 страниц текста. На каждой странице 60 строк по 80 символов в каждой. Поместится ли рукопись на дискету? Если нет, т ... }
  •  'Задача109' : Uses zadach109.pas; { Продав квартиру, вы получили $ 22 000 и положили их в банк. Банк начисляет 1% в первый месяц, а каждый следующий — тоже 1%, но уже с получившейся суммы. Сколько денег буд ... }
  •  'Задача11' : Uses zadach11.pas; { Вывести на экран алфавитно-цифрового дисплея график y=sinx+cos2x и печать минимума и максимума функции. ... }
  •  'Задача11' : Uses zadach11.pas; { Записать в начало массива Y положительные, а в конец – отрицательные элементы массива X, сохранив порядок элементов ... }
  •  'Задача110' : Uses zadach110.pas; { Напишите программу, рисующую цепочку соприкасающихся окружностей с заданными в операторе data радиусами ... }
  •  'Задача111' : Uses zadach111.pas; { Определить объём и площадь боковой поверхности цилиндра с заданными радиусом основания R и высотой H. ... }
  •  'Задача112' : Uses zadach112.pas; { Найти произведение цифр заданного целого четырехзначного числа. ... }
  •  'Задача113' : Uses zadach113.pas; { Две прямые описываются уравнениями a1 x + b1 y + c1 = 0; a2 x + b2 y + c2 = 0. Напечатать координаты точки пересечения этих прямых, либо сообщить, что эти прямые совпадаю ... }
  •  'Задача114' : Uses zadach114.pas; { Определить большее из двух чисел, вывести его на экран, затем - увеличить его в двое и вывести результат на экран. ... }
  •  'Задача115' : Uses zadach115.pas; { Нужно оклеить обоями комнату: длина одной стены L1 и высота Н, другой - L2, высота Н, длина куска обоев - L2, ширина Д.. Сколько понадобиться кусков обоев. Составить блок ... }
  •  'Задача116' : Uses zadach116.pas; { По данному объему куба найти его ребро и площадь поверхности. ... }
  •  'Задача116' : Uses zadach116.pas; { Дан целочисленный массив с количеством элементов n. "Сожмите" массив, выбросив из него каждый второй элемент. ... }
  •  'Задача117' : Uses zadach117.pas; { Составить программу для нахождения площади прямоугольной поверхности, со сторонами а, в,с ... }
  •  'Задача118' : Uses zadach118.pas; { Найти периметр квадрата, если его диагональ равна D ... }
  •  'Задача119' : Uses zadach119.pas; { Составить программу для вычисления числа воскресений в 2004 году если первое воскресенье приходиться на 4 января. ... }
Else
 writeln('Ничего не выбрано!');
End;REM basic