Подпрограммы: Найти все "совершенные" числа, не превосходящие Р

@Наталёк · Регистрация: 24.12.2012

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

При выполнении данного задания необходимо использовать процедуры и функции.
Дано натуральное P. Найти все "совершенные" числа, не превосходящие Р. "Совершенными" называются натуральные числа, сумма делителей, не включая самого числа, которых равна самому числу.

@CodeR · 25.12.2012, 11:54

Pascal

Function Sover(n:integer):boolean;
Var s,i:integer;
Begin
     s:=0;
     For i:=1 to n div 2 do
      if n mod i =0 then s:=s+i;
     Sover:=n=s;
End;

@Наталёк 0 / 0 / 0 Регистрация: 24.12.2012 Сообщений: 4
		1
	Подпрограммы: Найти все "совершенные" числа, не превосходящие Р 25.12.2012, 11:50. Показов 1845. Ответов 1 Метки нет (Все метки) При выполнении данного задания необходимо использовать процедуры и функции. Дано натуральное P. Найти все "совершенные" числа, не превосходящие Р. "Совершенными" называются натуральные числа, сумма делителей, не включая самого числа, которых равна самому числу. 0

	25.12.2012, 11:54

Подпрограммы: Найти все "совершенные" числа, не превосходящие Р

Решение