TURBO PASCAL

Новости       

Программы

Turbo Pascal

Игры

Документация

"Странности"

FAQ

Ссылки

Благодарности 

Гостевая книга

Спонсор

От автора

 

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

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

            a2 + b2 = c2;  где с<101.

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

            a3 + b3 + c3 = d3;  где d<21.

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

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

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

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

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

 

На первую страницу

Rambler's Top100 PROext: Top 1000
Rambler's Top100

(с) Все права защищены.

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

Hosted by uCoz