TURBO PASCAL

1. Найти количество делителей натурального числа, больших К (К вводить с клавиатуры).
2. Найти все натуральные числа a, b и c из интервала от 1 до 20, для которых выполняется равенство: a² * b = c².

Вариант №6

1. Найти сумму целых чисел из промежутка от 1 до 200, у которых ровно 5 делителей.
2. Найти все такие тройки натуральных чисел x, y и z из интервала от 1 до 20, для которых выполняется равенство: x² + y² = z².

Вариант №7

1. Найти все целые числа из промежутка от 100 до 300, у которых сумма делителей равна К (К вводить с клавиатуры).
2. Найти все такие тройки натуральных чисел x, y и z из интервала от 1 до 20, для которых выполняется равенство: x² + y² - z² = 0.

Вариант №8

1. Найти все натуральные числа из промежутка от a до b, у которых количество делителей превышает заданное число К.
2. Найти все натуральные числа a, b и c из интервала от 1 до 20, для которых выполняется равенство: a + b = c².

Вариант №9

1. Найти сумму чётных делителей натурального числа.
2. Найти все равновеликие прямоугольные треугольники, катеты которых выражены целыми числами a и b, а площадь равна S (a и b принадлежит интервалу от 1 до 20, а S вводится с клавиатуры).

Вариант №10

1. Найти количество нечётных делителей натурального числа, больших К (К вводить с клавиатуры).
2. Найти все натуральные числа x, y и z из интервала от 1 до 20, для которых выполняется равенство: x * y² = z².

По всем интересующим вопросам прошу писать на электронный адрес