Пример программы паскаль, которая находит все делители натурального числа и их сумму

Введение.

Итак, я продолжаю решать самые популярные и самые распространенные задачи на языке программирования PascalABC с использованием циклов FOR, на этот раз это задача на нахождение делителей числа и их суммы.

Задача.

Дано
натуральное число X, наша задача — найти его делители и их сумму SUMMA. Число X считывается с клавиатуры, делители выводятся на экран через знак пробела, а их сумма SUMMA располагается в следующей строке. Решим поставленную перед нами задачу с использованием цикла FOR, добавляя к каждой строке необходимые пояснения для абсолютного понимания алгоритма.

Код.

Var n, i, sum: integer; //Описание переменных
Begin //Начло программы
writeln (‘Введите число’); //Диалог с пользователем
readln(n); //Считывание числа
sum := n; //Присваивание сумме значение самого числа (само число — уже делитель самого себя)
writeln(‘Делители числа:’); //Диалог с пользователем
for i := 1 to n div 2 do //Цикл For от до половины n
if (n mod i) = 0 then begin //Если число делится на i, то выводим
write(i,’ ‘);
sum := sum + i; //К значению суммы прибавляем делитель
end; //Конец условного оператора if
writeln(n); //Вывод самого числа, т.к. оно тоже делитель
writeln(‘Сумма делителей: ‘,sum); //Вывод суммы делителей
End. //Конец программы

Нет комментариев

Оставить комментарий