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

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


Итак, продолжаю выкладывать наиболее востребованные исходники Паскаль 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

Дата: 2013-06-25 10:53:19   Просмотров: 49210

Теги: Паскаль Pascal исходник исходники скачать FOR циклы