Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Var n,i,s:integer;BeginReadln(n);For i:=1 to n doIf n mod i =0 thens:=s+i;If s = n thenWrite(верно)ElseWrite(не верно);ReadlnEnd.