Определить, является ли число совершенным

@Rus1an73 · Регистрация: 18.04.2011

Студворк — интернет-сервис помощи студентам

Определить, является ли число совершенным, то есть равно ли оно сумме своих делителей, кроме самого себя.(Процедуры, функции)

@Small Lamer · 03.05.2011, 21:23

Pascal

var
    n,i,s:longint;
begin
write('vvedite n-');
readln(n);
for i:=1 to n-1 do if n mod i=0 then s:=s+i;
if s=n then
write('Yes') else write('No');
end.

@Rus1an73 0 / 0 / 0 Регистрация: 18.04.2011 Сообщений: 21
		1
	Определить, является ли число совершенным 03.05.2011, 21:07. Показов 27661. Ответов 1 Метки нет (Все метки) Определить, является ли число совершенным, то есть равно ли оно сумме своих делителей, кроме самого себя.(Процедуры, функции) 0

Опции темы

Определить, является ли число совершенным

Решение