Question

ПОМОГИТЕ ПОЖАЛУЙСТА!!! СРОЧНО!!! Желательно в Pascal. Составить программу получения всех совершённых чисел, меньших заданного числа n. Число называется совершенным, если оно равно сумме всех своих положительных делителей, кроме самого себя. Например 28-совершенное число, т.к. 28=1+2+4+7+14.

Answer 1

Держи! Среда - Pascal ABC. 

Answer 2

Решение на языке Pascal

```pascal program PerfectNumbers;

var n, i, sum: integer;

begin writeln('Введите число n:'); readln(n); writeln('Совершенные числа, меньшие ', n, ':'); for i := 1 to n - 1 do begin sum := 0; for j := 1 to i - 1 do begin if i mod j = 0 then sum := sum + j; end; if sum = i then writeln(i); end; end. ```

Объяснение: В данной программе мы используем два цикла для проверки каждого числа, меньшего заданного числа n.

Внешний цикл `for` перебирает все числа от 1 до n-1.

Во внутреннем цикле `for` мы проверяем каждое число, меньшее текущего числа, и суммируем все положительные делители этого числа.

Если сумма делителей равна текущему числу, то выводим его на экран.

Таким образом, программа находит все совершенные числа, меньшие заданного числа n.