PROGRAM6380.PAS

{* Задачи *}

{ Выберите программу или раздел при помощи графического манипулятора «Мышь» ! }
Case User Of
  •  'Задача 236' : Uses zadach236.pas; { Даны числа a, b, c. Составить программу вычисления (min(a, c)-min(a, b)/(5+min(b, c)) ... }
  •  'Задача 237' : Uses zadach237.pas; { Цифры числа хранятся в таблице b. b[1] содержит цифру высшего разряда a=a, a2, a3...an. Найти число ... }
  •  'Задача 238' : Uses zadach238.pas; { Найти наименьшее однозначное число х, удовлетворяющее условию x*x*x-x*x=n ... }
  •  'Задача 239' : Uses zadach239.pas; { Решить систему уравнений ax+by+c=0 и a1x+b1y+c1=0 ... }
  •  'Задача 24' : Uses zadach24.pas; { Натуральные числа а, б, с называются числами Пифагора, если выполняется условие а*а+b*b=с*с. Напечатать все числа Пифагора меньше N. ... }
  •  'Задача 240' : Uses zadach240.pas; { Даны действительные числа x1, x2, x3, y1, y2, y3. Принадлежит ли начало координат треугольнику с вершинами (x1, y1), (x2, y2), (x3, y3)? ... }
  •  'Задача 241' : Uses zadach241.pas; { Даны действительные положительные числа a, b, c, x, y. Выяснить, пройдет ли кирпич с ребрами a, b, c в прямоугольное отверстие со сторонами x и y. Просовывать кирпич в от ... }
  •  'Задача 243' : Uses zadach243.pas; { Даны целые числа a1, a2, a3. Получить целочисленную матрицу [bij ]i, j=1, 2, 3 , для которой bij= ai – 3aj. ... }
  •  'Задача 244' : Uses zadach244.pas; { Даны натуральное число n, символы s1,… , sn. Будем рассматривать слова, образованные символами, входящими в последовательность s1, …, sn (см. задачу 269), считая при этом ... }
  •  'Задача 245' : Uses zadach245.pas; { Даны натуральное число n, символы S,…., S. Будем рассматривать слова, образованные символами, входящими последовательность S,….., S, считая при этом, что количество симв ... }
  •  'Задача 246' : Uses zadach246.pas; { Даны символы s1, … , s80. Определить количество неверных равенств среди: s1= s41, s2= s42, … , s40= s80. ... }
  •  'Задача 247' : Uses zadach247.pas; { Получить на экране слово ТЕСТ Буквы строяться из отрезков, размещаемых в соответствии с конфигурацией буквы в прямоугольнике определенного размера. Осуществить перемещени ... }
  •  'Задача 248' : Uses zadach248.pas; { Изобразить на экране точку, пересекающую экран равноускоренно в вертикальном направлении. ... }
  •  'Задача 249' : Uses zadach249.pas; { Управление курсором, может выполняться, например, с клавиатуры: нажатие клавиш управления курсором означает смену указываемой точки и вызывает соответствующее изменение ф ... }
  •  'Задача 25' : Uses zadach25.pas; { Матрица состоит из слов длиной в 5 символов. Получить полную матрицу, слова в которой записаны наоборот и на обоих диагоналях удалены из слов все гласные буквы. Для каждо ... }
  •  'Задача 250' : Uses zadach250.pas; { Изобразить на экране точку, пересекающую экран равноускоренно в вертикальном направлении. ... }
  •  'Задача 251' : Uses zadach251.pas; { Даны натуральные числа x1, y1, x2, y2, x3, y3, x4, y4 . Построить прямоугольник, левый верхний угол которого находится в точке ( x1, y1), а правый нижний- в точке (x2 , y ... }
  •  'Задача 252' : Uses zadach252.pas; { Дан символьный файл f . Получить файл g , образованный из файла f заменой всех его прописных (больших) букв одноименными строчными (малыми). ... }
  •  'Задача 253' : Uses zadach253.pas; { Дан файл, компоненты которого являются целыми числами. Получить в файле g все компоненты файла f являющиеся четными числами. ... }
  •  'Задача 254' : Uses zadach254.pas; { Даны натуральное число n, целочисленная матрица [aij] i=1, 2; j=1,..., m . Найти сумму тех из элементов a2 j (j= 1,..., m), для которых a1j имеет значение наибольшего сре ... }
  •  'Задача 255' : Uses zadach255.pas; { Условие: To =1, Tk=To*Tk-1 + T1*Tk-2 +…Tk-2*T1 + Tk-1*T0, k=1, 2,… Получить T10 ... }
  •  'Задача 256' : Uses zadach256.pas; { Начертить узор, составленный из шестиугольников. Узор образован 20 вложенными квадратами. Стороны первого квадрата параллельны осям координат экрана и равны 60. Вершины к ... }
  •  'Задача 257' : Uses zadach257.pas; { Круглое кольцо вращается с постоянной угловой скоростью, вокруг своего диаметра, расположенного параллельно горизонтальной оси экрана. Изобразить на экране процесс враще ... }
  •  'Задача 258' : Uses zadach258.pas; { Дано натуральное число n. Выяснить, сколько положительных элементов содержит матрица [aij] i, j=1,..., n , если aij=sin(i+j/2) ... }
  •  'Задача 259' : Uses zadach259.pas; { Даны действительные числа а1,…а17. Найти сумму значений |xi-xj| (1≤ i ≤ j ≤ 17). ... }
  •  'Задача 26' : Uses zadach26.pas; { Ввод с клавиатуры строки произвольной длины. Заменить в строке все символы 't' на 'm' и вставить начало строки символ 'S'. ... }
  •  'Задача 260' : Uses zadach260.pas; { Дана действительная матрица размера n×m. Получить последовательность b1…, bn, где bk- это сумма наибольшего и наименьшего из значений элементов k-й строки. ... }
  •  'Задача 261' : Uses zadach261.pas; { Дан символьный файл f. Записать в файл g с сохранением порядка следования те символы файла f вслед за которым в этом файле идет буква а ... }
  •  'Задача 262' : Uses zadach262.pas; { Составить процедуру, результатом работы которой является символ, заданный при обращении к процедуре, если этот символ не является буквой, и соответствующая строчная (мала ... }
  •  'Задача 263' : Uses zadach263.pas; { Известно, что любое натуральное число можно представить в виде суммы не более чем четырех квадратов натуральных чисел или, что то же самое, в виде суммы четырех квадратов ... }
Else
 writeln('Ничего не выбрано!');
End;Program pas2123;
Program pas2123..