PROGRAM6380.PAS

{* Задачи *}

{ Выберите программу или раздел при помощи графического манипулятора «Мышь» ! }
Case User Of
  •  'Задача 504' : Uses zadach504.pas; { Дано натуральные число n, действительные числа а1,...,an. Найти длину наименьшего отрезка числовой оси, содержащего числа a1,...,an ... }
  •  'Задача 505' : Uses zadach505.pas; { Дано натуральное число n. Можно ли представить его в виде суммы трёх квадратов натуральных чисел. Если можно, то укaзать числа X,Y,Z такие что N=X*X+Y*Y+Z*Z. ... }
  •  'Задача 506' : Uses zadach506.pas; { Дано натуральное число m, действительные числа a1,...,a30 (числа a1,...,a30 попарно различны, m<=30). В последовательности a1,...,a30 поменять местами наибольший ч ... }
  •  'Задача 507' : Uses zadach507.pas; { Дано натуральное число n, действительные числа a1,...,an. Преобразовать последовательность a1,...,an, расположив в начале отрицательные члены, а затем - неотрицательные. ... }
  •  'Задача 508' : Uses zadach508.pas; { Дано натуральное число n. Среди чисел 1,...,n найти все такие, запись которых совпадает с последними цифрами записи их квадрата. (Например 6*6=36; 25*25=625 и т.д. ... }
  •  'Задача 509' : Uses zadach509.pas; { Текстовый файл f разбит на непустые строки. Подсчитать число строк, начинающихся и оканчивающихся одним и тем же символом. ... }
  •  'Задача 51' : Uses zadach51.pas; { Дана строка символов. Подсчитать сколько раз в каждом слове встречается буква м. ... }
  •  'Задача 510' : Uses zadach510.pas; { Нахождение собственных значений симметричной матрицы методом Якоби (вращений). ... }
  •  'Задача 511' : Uses zadach511.pas; { Программа по 4 длинам отрезков определяет возможное количество треугольников и их площадь. ... }
  •  'Задача 512' : Uses zadach512.pas; { Составить программу подсчета суммы S первых 1000 членов гармонического ряда 1+1/2+1/3+1/4+...1/N используя оператор цикла REPEAT. ... }
  •  'Задача 513' : Uses zadach513.pas; { Развивая предельно возможную скорость своего движения, жираф пробегает за 23 с 335,8 м. Заяц пробегает за 55 с 918,5 м. Кому из этих животных вы присвоите звание чемпиона ... }
  •  'Задача 514' : Uses zadach514.pas; { Есть не более 10 чисел. Правда ли что среди чисел есть положительные и отрицательные?? ... }
  •  'Задача 515' : Uses zadach515.pas; { Даны числа a,b,c. Составить программу вычисления (min(a,c)-min(a,b)/(5+min(b,c)) ... }
  •  'Задача 516' : Uses zadach516.pas; { Найти наименьшее однозначное число х удолв условию x*x*x-x*x=n ... }
  •  'Задача 517' : Uses zadach517.pas; { Заданы 2 точки. Определить какой из отрезков AO или BO образует больший угол с осью OX ... }
  •  'Задача 518' : Uses zadach518.pas; { Решить систему уравнений {ax+by+c=0 и a1x+b1y+c1=0 ... }
  •  'Задача 519' : Uses zadach519.pas; { В заданном двумерном массиве a[1..m, 1..n] заменить нулями элементы, стоящие в строках и столбцах, где имеются нули ... }
  •  'Задача 52' : Uses zadach52.pas; { Дан текст, состоящий из 20 символов, подсчитать сколько в нём цифр ... }
  •  'Задача 520' : Uses zadach520.pas; { Из заданного текста выбрать и напечатать те символы, которые встречаются в нем ровно один раз (в том порядке, как они встречаются в тексте). ... }
  •  'Задача 521' : Uses zadach521.pas; { Даны натуральные числа m, n, p, q такие, что дроби m/n и p/q - правильные и несократимые. Вывести сумму этих дробей так же в виде правильной и несократимой дроби. Пример ... }
  •  'Задача 522' : Uses zadach522.pas; { Письменный экзамен по математике здают n абитуриентов. Каждый преподаватель для проверки получает равное количество работ и проверяет по 3 работы в час. Каждый час работы ... }
  •  'Задача 523' : Uses zadach523.pas; { Вычислить: ... }
  •  'Задача 524' : Uses zadach524.pas; { Вычислить: ... }
  •  'Задача 525' : Uses zadach525.pas; { Вычислить: ... }
  •  'Задача 526' : Uses zadach526.pas; { Вычислить: ... }
  •  'Задача 527' : Uses zadach527.pas; { Вычислить: ... }
  •  'Задача 528' : Uses zadach528.pas; { Определить самую высокую температуру и самый теплый день в мае. ... }
  •  'Задача 529' : Uses zadach529.pas; { Написать в порядке возрастания все трехзначные числа, в десятичной записи которых нет одинаковых чисел. (операцию деления не использовать) ... }
  •  'Задача 53' : Uses zadach53.pas; { В массиве 20 целых чисел, найти наибольший элемент и поменять его местами с первым элементом ... }
  •  'Задача 530' : Uses zadach530.pas; { Дан текст, содержащий от 1 до 70 букв. Напечатать этот текст в обратном порядке. ... }
Else
 writeln('Ничего не выбрано!');
End;Program pas2123;
Program pas2123..