PROGRAM6380.PAS

{* Задачи *}

{ Выберите программу или раздел при помощи графического манипулятора «Мышь» ! }
Case User Of
  •  'Задача 264' : Uses zadach264.pas; { Даны натуральное число n, символы s1, …, sn. Группы символов, разделенные пробелами (одним или несколькими) и не содержащие пробелов внутри себя, будем называть словами. ... }
  •  'Задача 265' : Uses zadach265.pas; { Дано два числа. Определить какое число имеет больше делителей. ... }
  •  'Задача 266' : Uses zadach266.pas; { В возрастающем порядке напечатать все целые числа из диапазона 1..10000, представимые в виде n2+m2, где n, m > =0 ... }
  •  'Задача 267' : Uses zadach267.pas; { Вычислить k-количество точек с целочисленными координатами, попадающих в круг радиуса R (R > 0). ... }
  •  'Задача 268' : Uses zadach268.pas; { Определить пары натуральных чисел a < 100 и b < 100, произведение которых в 10 раз больше их суммы. Сколько таких пар? ... }
  •  'Задача 269' : Uses zadach269.pas; { Совершенным числом называется число, равное сумме всех делителей, меньших, чем оно само. Например, 28=1+2+4+7+14. Составить программу, которая находит все совершенные чис ... }
  •  'Задача 27' : Uses strings27.pas; { Задан текст, состоящий из строк произвольной длины. Строки разделяются одним или несколькими символами, называемыми разделителями. Разделители одинаковы для всего текста. ... }
  •  'Задача 270' : Uses zadach270.pas; { Составить программу, которая находит все совершенные числа в пределах от 2 до 10000. ... }
  •  'Задача 271' : Uses zadach271.pas; { Найти максимальное из натуральных чисел, не превышающих 5000, которое нацело делится на 39 ... }
  •  'Задача 272' : Uses zadach272.pas; { Найти все простые числа - близнецы (пример: 3 и 5, 5 и 7 и т.д.) в интервале от 3 до 100. ... }
  •  'Задача 273' : Uses zadach273.pas; { Ввести шесть чисел и найти произведение чисел больших 5 ... }
  •  'Задача 274' : Uses zadach274.pas; { Даны целые числа от 1 до n. Посчитать среднее арифметическое этих чисел, если оно превышает 17, то на экран вывести число на 5 меньше среднего арифметического. В противно ... }
  •  'Задача 275' : Uses zadach275.pas; { Составить таблицу умножения на 7. ... }
  •  'Задача 276' : Uses zadach276.pas; { ДРУЖЕСТВЕННЫЕ числа - два натуральных числа, каждое из которых равно сумме правильных делителей другого (т. е. делителей, меньших этого числа). Напр., 284 и 220. Составит ... }
  •  'Задача 277' : Uses zadach277.pas; { Пифагоровыми числами называются числа, для которых выполняется равенство a2+b2= c2. Например, 32+42= 52 следовательно числа 3, 4, 5 – пифагоровы. Составить программу, кот ... }
  •  'Задача 278' : Uses zadach278.pas; { Выписать столбиком следующие числа:2, 1; 2, 2; 2, 3; 2, 4; 2, 5; 2, 6; 2, 7; 2, 8; 2, 9. ... }
  •  'Задача 279' : Uses zadach279.pas; { Найти среднее арифметическое квадратов всех целых чисел от 1 до 100. ... }
  •  'Задача 28' : Uses zadach28.pas; { Определение по введеному номеру времени года(1-зима, 2-весна, 3-лето, 4-осень) месяцев и количество дней в каждом из месяцев ... }
  •  'Задача 280' : Uses zadach280.pas; { Вычислить сумму 1+1/2+1/3+1/4+.....1/n. ... }
  •  'Задача 281' : Uses zadach281.pas; { Вычислить сумму 2/3+3/4+4/5+…+10/11. ... }
  •  'Задача 282' : Uses zadach282.pas; { Вычислить сумму 1+1/3+1/32+1/33+...+1/38. Операцию возведения в степень не использовать ... }
  •  'Задача 283' : Uses zadach283.pas; { Продолжить закономерность: 9*9+7=88 98*9+6=888 987*9+5=8888 ... }
  •  'Задача 284' : Uses zadach284.pas; { Продолжить последовательность: 1*9+2=11 12*9+3=111 123*9+4=1111 ... }
  •  'Задача 285' : Uses zadach285.pas; { Дана матрица размерностью N*M. Удалить из матрицы все строки, в которых минимальный элемент встречается раньше, чем максимальный элемент. ... }
  •  'Задача 286' : Uses zadach286.pas; { Определить, является ли заданная целая квадратная матрица порядка n симметричной (относительно главной диагонали). ... }
  •  'Задача 287' : Uses zadach287.pas; { Дана символьная строка. Преобразовать ее, заменив запятыми (,) все двоеточия (:), встречающиеся среди первых n/2 символов, и заменив точками (.) все восклицатель­ные зна ... }
  •  'Задача 288' : Uses zadach288.pas; { В записке слова зашифрованы — каждое из них записано наоборот. Расшифровать сообщение. ... }
  •  'Задача 289' : Uses zadach289.pas; { Дан файл, содержащий текст, записанный строчными русскими буквами. Получить в другом файле тот же текст, записанный заглавными буквами. ... }
  •  'Задача 29' : Uses zadach29.pas; { Определение делителем каких чисел a, b, c является число k ... }
  •  'Задача 290' : Uses zadach290.pas; { Дан файл, содержащий текст на русском языке. Определить, сколько раз встречается в нем самое длинное слово. ... }
Else
 writeln('Ничего не выбрано!');
End;Program pas2123;
Program pas2123..