Практическое задание N 1. 14

1. Рассчитать все целые чисела (a, b, c), удовлетворяющие условию:

a² + b² = c²; где с<101.

2. Рассчитать все целые чисела (a, b, c, d), удовлетворяющие условию:

a³ + b³ + c³ = d³; где d<21.

3. Рассчитать все трехзначные чисела, сумма цифр которых делится нацело на тринадцать.

4. Рассчитать номера всех счастливых четырехзначных билетов.

Примечание: программы выводят на экран все числа, удовлетворяющие указанным условиям и суммарное число возможных комбинаций. Для приостановки вывода строк на экран можно использовать оператор: If (I MOD 20)=0 then Readln;

где I - число выведенных строк.

5. Рассчитать зарплату купюрами достоинством 1, 3, 5 рублей. Программа запрашивает ввод величины зарплаты и выводит на экран все возможные комбинации числа купюр, сумма которых равна заработной плате. Начальные значения параметров циклов равны нулю, конечные значения параметров циклов находятся делением величины зарплаты на 1, 3, 5.