PROGRAM7510.BAS

{* Задачи *}

{ Выберите программу или раздел при помощи графического манипулятора «Мышь» ! }
Case User Of
  •  'Задача311' : Uses zadach311.pas; { Определить количество элементов массива X(n), заканчивающихся цифрами 5 или 7. Вывести исходный массив и полученное значение. Упорядочить массив X(n) по убыванию. Вывести ... }
  •  'Задача312' : Uses zadach312.pas; { В исходной строке a$ удалить все вхождения заданного символа x$ и удвоить все вхождения другого заданного символа y$. ... }
  •  'Задача313' : Uses zadach313.pas; { Найти колличество трехначных чисел сумма цифр которых равно А, а само число заканчивается цифрой В(А и В вводятся с клавиатуры) ... }
  •  'Задача314' : Uses zadach314.pas; { Уменьшить элементы диагонали массива на 6 и найти их произведение. ... }
  •  'Задача315' : Uses zadach315.pas; { Составить программу, которая по введенному году (от 800 до 2011) выдает соответствующий век (849 — IХ век, 1995 — XX век, …) ... }
  •  'Задача316' : Uses zadach316.pas; { Составить программу, которая после введенного с клавиатуры числа (в диапазоне от 1 до 99), обозначающего денежную единицу, дописывает слово «Рубль» в правильной форме. На ... }
  •  'Задача317' : Uses zadach317.pas; { Построить окружность, состоящую из заданного числа дуг случайных цветов. ... }
  •  'Задача318' : Uses zadach318.pas; { Дан массив С(К). Переписать четные элементы в массив Е, а нечетные в массив В. Нулевые элементы отбросить. В какой последовательности элементов оказалось больше? ... }
  •  'Задача319' : Uses zadach319.pas; { Перевод из римской системы счисления в арабскую ... }
  •  'Задача32' : Uses zadach32.pas; { Решите систему уравнений ... }
  •  'Задача320' : Uses zadach320.pas; { Заданы координаты двух точек. Определите, лежат ли они на одной окружности с центром в начале координат. ... }
  •  'Задача321' : Uses zadach321.pas; { Сформировать движущийся круг радиуса r, центр которой перемещается попеременно в обоих направлениях вдоль вертикального отрезка с заданными границами. ... }
  •  'Задача322' : Uses zadach322.pas; { Составить подпрограмму нахождения объема шара, зная его радиус. С помощью данной подпрограммы вычислить объем для трех шаров. ... }
  •  'Задача323' : Uses zadach323.pas; { Описать подпрограмму PowerA234(A), вычисляющую корень второй, третьей и четвертой степени из числа A.С помощью этой подпрограммы вычислить корни для трех данных чисел. ... }
  •  'Задача324' : Uses zadach324.pas; { Для х=3, 6, 12, 24, … (всего 27 значений х) вычислить и напечатать y=lnx+8 ... }
  •  'Задача326' : Uses zadach326.pas; { Организуйте массив. Поменяйте местами элементы с максимальным и минимальным значениями. ... }
  •  'Задача327' : Uses zadach327.pas; { Дана точка с координатами (x, y).Определить, какому квадрату на плоскости она принадлежит. ... }
  •  'Задача328' : Uses zadach328.pas; { Определить равна ли сумма первых двух цифр четырехзначногочисла f сумме двух его последних цифр. ... }
  •  'Задача33' : Uses zadach33.pas; { Составить программу по обработки ошибок деления на ноль ... }
  •  'Задача330' : Uses zadach330.pas; { Дана числовая последовательность, состоящая из К элементов.Определить кол-во элементов кратных 7, и не кратных 5 ... }
  •  'Задача330' : Uses zadach330.pas; { Известны даты рождения 2х человек, определить кто старше по количеству полных лет. ... }
  •  'Задача331' : Uses zadach331.pas; { Из массива вещественных чисел T(10) выписать в новую таблицу элементы, значения которых меньше 100. Найти их среднее арифметическое значение. ... }
  •  'Задача332' : Uses zadach332.pas; { Вычислите сумму элементов массива А(15), значения которых по модулю лежат в заданном диапазоне: от В до С. (В<|A(I)| ... }
  •  'Задача333' : Uses zadach333.pas; { Из одномерного массива размера 56, удалить все элементы с элемента № k1 по № k2(С проверкой коректности k1 и k2. ... }
  •  'Задача334' : Uses zadach334.pas; { В символьной переменной F$ записана строка символов. Из задоной строки получить новую, заменить в ней все "1" на символ "А". Распечатать полученную строку. ... }
  •  'Задача335' : Uses zadach335.pas; { В символьной переменной D$ записана строка символов. Найти слова начинающиеся на букву "л". ... }
  •  'Задача336' : Uses zadach336.pas; { Для заданной целочисленной матрицы А(N,М) определите, является ли сумма ее элементов четным числом, и выведите на печать соответствующий текст. ... }
  •  'Задача337' : Uses zadach337.pas; { В заданном массиве X(N) замените нулями все отрицательные компоненты, непосредственно предшествующие его максимальной компоненте ( первой по порядку, если их несколько). ... }
  •  'Задача338' : Uses zadach338.pas; { Вычислите дробную часть среднего геометрического трех заданных вещественных чисел. Большое спасибо. ... }
  •  'Задача339' : Uses zadach339.pas; { Найти сумму целых отрицательных нечетных чисел, больших -100 ... }
Else
 writeln('Ничего не выбрано!');
End;REM basic