Программа
нахождения всех делителей заданного
целого числа N.
|
|
|
Program
pr32 (Input, Output);
|
Объявление
имени программы |
|
Var
|
Блок
объявления глобальных переменных |
|
N
: Integer;
|
Переменная
N - заданное число |
|
i
: Integer;
|
Переменная
i - параметр цикла и делитель |
|
|
|
|
Begin
|
Начало
тела программы |
|
|
|
|
WriteLn
('PASCAL: Нахождения всех делителей
заданного числа.');
|
Формулировка
цели алгоритма |
|
Write
('Введите число, для которого ищутся
делители: ');
|
Запрос
N - числа, для которого ищутся делители |
|
ReadLn
(N);
|
Ввод
N |
|
|
|
|
WriteLn
('Делители числа N = ', N, ' равны:');
|
Сообщение
пользователю о выводе найденных
делителей |
|
|
|
|
For
i := 1 To N Do
|
Цикл
для i от 1 до N нахождения делителей числа
N |
|
If
(N Div i) = (N / i) Если
целая часть дроби N/i равна дроби N/i,
|
Проверка
равенства кратности числа N делителю i |
|
Then
WriteLn (i);
i является очередным делителем числа
N
|
В
случае кратности выводим очередной
делитель - число i |
|
|
|
|
ReadLn;
|
Ожидание
нажатия клавиши Enter для завершения |
|
End.
|
Конец программы |
