Паскаль!

Напишите логическую функцию, которая определяет, верно ли, что число N-совершенное, т. е. равно сумме своих делителей, меньших его самого.

Question

Информатика

Кир

17 апреля, 10:18

Паскаль!

Напишите логическую функцию, которая определяет, верно ли, что число N-совершенное, т. е. равно сумме своих делителей, меньших его самого.

+1

Ответы (1)

Знаете ответ на вопрос?

Марлеша · Answer 1

Var n, i, s:integer; Begin Readln (n) ; For i:=1 to n do If n mod i = 0 then s:=s+i; If s = n then Write ('верно') Else Write ('не верно') ; Readln End.

Паскаль!Напишите логическую функцию, которая определяет, верно ли, что число N-совершенное, т. е. равно сумме своих делителей, меньших его самого.

Паскаль!

Напишите логическую функцию, которая определяет, верно ли, что число N-совершенное, т. е. равно сумме своих делителей, меньших его самого.