PROGRAM7510.BAS

{* Задачи *}

{ Выберите программу или раздел при помощи графического манипулятора «Мышь» ! }
Case User Of
  •  'Задача424' : Uses zadach424.pas; { Вывести на экран все трёхзначные числа,кратные 13 в обратном порядке ... }
  •  'Задача425' : Uses zadach425.pas; { Составить программу, которая запрашивает объем куба, а выводит длину ребра куба и площадь его боковой поверхности. ... }
  •  'Задача426' : Uses zadach426.pas; { Вычислить периметр треугольника и площадь,если даны координаты вершин (x1;y1)(x2;y2)(x3;y3) ... }
  •  'Задача427' : Uses zadach427.pas; { Определить, есть ли среди первых трех цифр дробной части заданного числа f цифра 0 ... }
  •  'Задача428' : Uses zadach428.pas; { Составить программу расчета нагрузки скота (голов) на 1 га пастбищ по формуле Где: У – урожай зеленой массы с 1 г пастбищ за период, ц; К – количество пастбищного корма ... }
  •  'Задача429' : Uses zadach429.pas; { Составить программу вычисления и выдачи на печать суммы(или произведения) N элементов бесконечного числового ряда. у=48(-24)12(-6)3... ... }
  •  'Задача43' : Uses zadach43.pas; { Составить программу поиска трех последовательных элементов, сумма которых максимальна, в числовом массиве из 30 элементов. ... }
  •  'Задача430' : Uses zadach430.pas; { Найти сумму 1 + 12 + 12^3 + ... 12^n ... }
  •  'Задача431' : Uses zadach431.pas; { Составить алгоритм и программу поиска 3-х знач чисел которые при делении на 47 дают в остатке 43. ... }
  •  'Задача432' : Uses zadach432.pas; { Дана натур. числа, определить кол-во его делителей кратных 3. ... }
  •  'Задача433' : Uses zadach433.pas; { Дано натуральное число n, цлые числа a1, a2, a3,... an. Надо найти номер первого члена последовательности a1, a2 ,a3,... an; если чётных членов нет, то ответом должно быт ... }
  •  'Задача434' : Uses zadach434.pas; { Написать программудля нахождения суммы 1/sqr1 +1/sqr2+1/sqr3+.....+1/sqr n ... }
  •  'Задача44' : Uses zadach44.pas; { Дан прямоугольный массив целых положительных чисел 10 х 20. Составьте программу поиска строки с наименьшей суммой элементов. Вывести на печать номер строки и сумму ее ... }
  •  'Задача45' : Uses zadach45.pas; { Дан квадратный массив целых положительных чисел 10 х 10. Составьте программу вычисления суммы элементов строки, в которой расположен элемент с максимальным значением. ... }
  •  'Задача46' : Uses zadach46.pas; { Дан целочисленный прямоугольный массив 6x10. Опишите на русском языке или на одном из языков Напишите программу вычисления суммы минимальных элементов из каждой строки. ... }
  •  'Задача47' : Uses zadach47.pas; { Дан целочисленный массив из 30 элементов. Элементы могут принимать значения от 0 до 100 баллы, полученные на ЕГЭ. Составьте программу, которая подсчитывает и выводит ... }
  •  'Задача48' : Uses zadach48.pas; { Дан целочисленный массив из 30 элементов. Элементы могут принимать значения от 160 до 200 рост учащихся выпускного класса. В баскетбольную команду берут тех, чей рост ... }
  •  'Задача49' : Uses zadach49.pas; { Дан целочисленный массив из 31 элемента, в котором записаны значения температуры воздуха в марте. Элементы массива могут принимать значения от (–20) до 20. Составьте пр ... }
  •  'Задача5' : Uses mzadach5.pas; { Определить, имеется ли среди элементов главной диагонали заданной целочисленной матрицы A(N, N) хотя бы один положительный нечётный элемент. ... }
  •  'Задача50' : Uses zadach50.pas; { Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от 0 до 100 – баллы учащихся выпускного класса за итоговый тест по информатике ... }
  •  'Задача51' : Uses zadach51.pas; { Напишите программу суммирования положительных элементов квадратной матрицы, превышающих по величине среднее арифметическое всех элементов главной диагонали. ... }
  •  'Задача52' : Uses zadach52.pas; { Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от 0 до 100 – баллы учащихся выпускного класса за итоговый тест по информати ... }
  •  'Задача53' : Uses zadach53.pas; { Дан целочисленный массив из 30 элементов. Элементы массива могут принимать произвольные целые значения. Составьте программу, которая находит и выводит второй максимум м ... }
  •  'Задача54' : Uses zadach54.pas; { Дан целочисленный массив из 30 элементов. Элементы массива могут принимать произвольные целые значения. Составьте программу, которая находит и выводит номер третьего ... }
  •  'Задача55' : Uses zadach55.pas; { Дан целочисленный массив из 30 элементов. Элементы массива могут принимать произвольные целые значения. Составьте программу, которая находит и выводит сумму наибольшей в ... }
  •  'Задача55' : Uses zadach55.pas; { Ввести матрицу по столбцам ... }
  •  'Задача56' : Uses zadach56.pas; { Дан целочисленный массив из 30 элементов. Элементы массива могут принимать любые целые значения. Составьте, которая находит и выводит номер элемента массива, наимене ... }
  •  'Задача57' : Uses zadach57.pas; { Дан целочисленный массив из 30 элементов. Элементы массива могут принимать произвольные целые значения. Составьте программу, которая находит и выводит номера двух эл ... }
  •  'Задача59' : Uses zadach59.pas; { Дан целочисленный массив из 30 элементов. Элементы массива могут принимать значения от –1000 до 1000. Составьте программу, которая находит и выводит среднее арифметич ... }
  •  'Задача6' : Uses zadach6.pas; { Разработать программу нахождения и вывода на экран всех чисел, оканчивающихся на 5, и делящихся на 3, из диапазона чисел от 5 до 1000. ... }
Else
 writeln('Ничего не выбрано!');
End;REM basic