TBN.ru - СЕТЬ, ЖИВУЩАЯ ПО ПРАВИЛАМ
TBN.ru - СЕТЬ, ЖИВУЩАЯ ПО ПРАВИЛАМ
TURBO PASCAL

Новости       

Программы

Turbo Pascal

Игры

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

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

FAQ

Ссылки

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

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

Спонсор

От автора

SpyLOG become number one

Программа нахождения всех делителей заданного целого числа 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.       

Конец программы

 

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

TopCTO Rambler's Top100 PROext: Top 1000
Rambler's Top100 Рейтинг@Mail.ru HotLog

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

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

Hosted by uCoz