Паскаль. Основы программирования


Задание 4


1. Дополните и измените эту программу так, чтобы она выдавала на экран не только различные четырехзначные числа, но и их количество.

2. При умножении четырехзначного числа, состоящего из разных цифр, на 9 получилось в произведении число, которое отличалось от множимого только тем, что между цифрами тысяч и сотен оказался нуль. Найти множимое.

Пример 6. Тройки натуральных чисел a, b, c, удовлетворяющих равенству:

 - называются Пифагоровыми числами.

Например, 3, 4 и 5 являются Пифагоровыми числами, поскольку

 

Составить программу для нахождения и печати всех Пифагоровых чисел, не превышающих 20.

Математика этого вопроса проста. Для чисел a, b и c возможные значения - это натуральные числа от 1 до 20.

Первоначальное значение a - единица, a = 1. Будем просматривать всевозможные значения b от 1 до 20, а также значения c от 1 до 20 и проверять выполнение равенства a

a + b
b = c
c. Как только равенство будет выполняться, тогда выводить на экран значения a, b и c.

Далее надо брать значение a = 2 и проверять значения b уже от 2 до 20. Почему не от 1, а от 2? Да потому, что набор двух чисел из 1 и 2 уже был рассмотрен при значениях a = 1 и b = 2, чтобы не повторять значения a и b, т.е. избежать появления двух одинаковых пар чисел, значения b следует начинать просматривать или до значения a или от a до 20.

В связи с этим, возможны несколько способов организации циклов для переменных a и b.

1-й способ:

 

for a := 1 to 20 do

                                                     for b := a to 20 do

 

2-й способ:

 

                                                  for a := 20 downto 1 do

                                                     for b := 1 to a do

 

3-й способ:

 

                                                  for a := 1 to

20 do

                                                     for

b := 1 to a do

Нетрудно видеть, что при каждом из этих способов не будут повторяться пары чисел. Проверьте это самостоятельно.

Для значений c мы обязаны проверять все натуральные числа от 1 до 20 для каждой пары чисел a и b.


Начало  Назад  Вперед



Книжный магазин