Итак, продолжаю выкладывать наиболее востребованные исходники Паскаль ABC по теме циклы паскаль (FOR). Задача Pascal такая: Дано натуральное число. Найти все его делители и их сумму. Число вводится с клавиатуры, делители выводятся через пробелы, сумма в следующей строке. Допустим диалог с пользователем.
Исходный код программы:
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. //Конец программы
Скачать программу паскаль: pas19for.pas