Итак, продолжаю выкладывать наиболее востребованные исходники Паскаль ABC по теме циклы паскаль (FOR). Задача Pascal такая: Дано натуральное число. Найти все его делители и их сумму. Число вводится с клавиатуры, делители выводятся через пробелы, сумма в следующей строке. Допустим диалог с пользователем.
Исходный код программы:
Задача
Для каждого натурального числа в промежутке от m до n вывести все делители, кроме единицы и самого числа. m и n вводятся с клавиатуры.
Решение
В цикле перебирать числа от m до n и проверять делимость каждого на натуральные числа от 2 до m-1. Если число делится нацело на текущий делитель, то выводить делитель на экран. В конце каждой итерации цикла увеличивать m на единицу.
Делитель — Число, в результате деления на которое не образуется остатка. Например, для числа 6 делителями являются 1, 2, 3 и 6, а для 7 — только 1 и 7.
Как найти делители в Паскале?
В среде Турбо паскаль делители числа находятся перебором в цикле всех чисел от 1 до заданного. Если в результате операции деления остаток равен нулю, то число является делителем. Нахождение делителей в pascal осуществляется посредством использования функции div или mod.
for del:=1 to n do
if (i mod del)=0 then
Теперь вы знаете как в pascal найти делители числа!
Делители числа — Нахождение делителей в Паскале для каждого из целых числел от 1 до N
Простые делители — Вывод простых делителей в pascal
Взаимно простые делители числа — Вывод делителей числа А, взаимно простых с B
Загрузка...
