PROGRAM6380.PAS

{* Задачи *}

{ Выберите программу или раздел при помощи графического манипулятора «Мышь» ! }
Case User Of
  •  'Задача 291' : Uses zadach291.pas; { Определить симметрична матрица или нет ... }
  •  'Задача 292' : Uses zadach292.pas; { Замена в строке ! на точку (.) ... }
  •  'Задача 293' : Uses zadach293.pas; { Дана целочисленная квадратная матрица. Найти в каждой строке наиболь¬ший элемент и поменять его местами с элементом главной диагонали. ... }
  •  'Задача 293' : Uses zadach293.pas; { Дана строка символов, среди которых есть двоеточие (:). Определить, сколько символов ему предшествует. ... }
  •  'Задача 294' : Uses zadach294.pas; { Проверить, одинаковое ли число открывающихся и закрывающихся ско¬бок в данной строке. ... }
  •  'Задача 294' : Uses zadach294.pas; { Дана символьная строка. Преобразовать ее, удалив каждый символ "*" и повторив каждый символ, отличный от "*". ... }
  •  'Задача 295' : Uses zadach295.pas; { Дан файл, содержащий произвольный текст. Выяснить, чего в нем больше: русских букв или цифр. ... }
  •  'Задача 295' : Uses zadach295.pas; { Дана вещественная матрица размером M х N. Переставляя ее строки и столбцы, добиться того, чтобы наибольший элемент (один из них) оказался в верхнем левом углу. ... }
  •  'Задача 296' : Uses zadach296.pas; { Дана символьная строка, содержащая текст, который заканчивается точ¬кой. Найти длину самого короткого слова и самого длинного слова. ... }
  •  'Задача 297' : Uses zadach297.pas; { Дан файл, содержащий текст, набранный заглавными русскими буквами. В нем содержатся также знаки препинания. Провести частотный анализ текста, т.е. указать (в процентах) с ... }
  •  'Задача 298' : Uses zadach298.pas; { Дан файл, содержащий текст на русском языке и некоторые два слова. Определить, сколько раз они входят в текст и сколько раз они входят непосредственно друг за другом. ... }
  •  'Задача 299' : Uses zadach299.pas; { Для целочисленной квадратной матрицы найти число элементов, кратных k, и наибольший из полученных результатов. ... }
  •  'Задача 3' : Uses zadach03.pas; { Определения сдачи после покупки в магазине товара: перчаток стоимостью а руб., портфеля стоимостью б руб., галстука стоимостью с руб. Исходная сумма, выделенная на покупк ... }
  •  'Задача 30' : Uses zadach30.pas; { Генератор простых чисел, в основе формула 2x квадрат+29 при 1 меньше либо равно x меньше либо равно 36 ... }
  •  'Задача 300' : Uses zadach300.pas; { Дан набор слов, разделенных точкой с запятой (;). Набор заканчивается двоеточием (:). Определить сколько в нем слов, заканчивающихся буквой a. ... }
  •  'Задача 301' : Uses zadach301.pas; { Дана строка символов, среди которых есть одна открывающаяся и одна закрывающаяся скобка. Вывести на экран все символы, расположенные внутри этих скобок. ... }
  •  'Задача 303' : Uses zadach303.pas; { Даны два текстовых файла f1 и f2. Файл f1 содержит произвольный текст. Слова в тексте разделены пробелами и знаками препинания. Файл f2 содержит не более 30 слов, которые ... }
  •  'Задача 304' : Uses zadach304.pas; { . Задана матрица размером N х N и число k. Разделить элементы k-й строки на диагональный элемент, расположенный а этой строке ... }
  •  'Задача 305' : Uses zadach305.pas; { Для целочисленной квадратной матрицы найти число элементов, кратных k, и наибольший из полученных результатов. ... }
  •  'Задача 306' : Uses zadach306.pas; { Дана строка символов. Подсчитать самую длинную последовательность подряд идущих букв а. ... }
  •  'Задача 307' : Uses zadach307.pas; { Имеется строка символов, содержащая буквы латинского алфавита и цифры. Вывести на экран длину наибольшей последовательности цифр, идущих подряд. ... }
  •  'Задача 308' : Uses zadach308.pas; { Дан файл, содержащий текст на русском языке и некоторая буква. Подсчитать, сколько слов начинается с указанной буквы. ... }
  •  'Задача 309' : Uses zadach309.pas; { Дан файл, содержащий зашифрованный русский текст. Каждая буква заменяется на следующую за ней (буква я заменяется на а). Получить в новом файле расшифровку данного текста ... }
  •  'Задача 31' : Uses zadach31.pas; { На плоскости заданы своими координатами n точек. Составить программу определяющую между какими из пар точек самое большое расстояние ... }
  •  'Задача 310' : Uses zadach310.pas; { Вычислить сумму и число положительных элементов матрицы A[N, N], находящихся над главной диагональю. ... }
  •  'Задача 311' : Uses zadach311.pas; { В символьной строке заменить все двоеточия (:) точкой с запятой (;). Подсчитать количество замен. ... }
  •  'Задача 312' : Uses zadach312.pas; { В символьной строке между словами вставить вместо пробела запятую и пробел. ... }
  •  'Задача 313' : Uses zadach313.pas; { Даны два текстовых файла f1 и f2. Файл f1 содержит произвольный текст. Слова в тексте разделены пробелами и знаками препинания. Файл f2 содержит не более 30 слов, которые ... }
  •  'Задача 314' : Uses zadach314.pas; { Дан файл, содержащий текст на русском языке. Подсчитать количество слов, начинающихся и заканчивающихся на. одну и ту же букву. ... }
  •  'Задача 315' : Uses zadach315.pas; { В заданной строке удалить символ двоеточие (:) и подсчитать количество удаленных символов. ... }
Else
 writeln('Ничего не выбрано!');
End;Program pas2123;
Program pas2123..