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

@ilnazzak · Регистрация: 26.09.2010

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

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

Добавлено через 16 минут
люди помогите очень надо решение, я сейчас контрольную на уроке пишу, решение надо, помогите плиз.

@pryda · 02.11.2010, 17:09

Pascal

uses crt;
var a:integer;
 
function del(n:integer):integer;
var i,s:integer;
begin
s:=0;
for i:=1 to n-1 do
if n mod i=0 then s:=s+i;
del:=s;
end;
 
begin
writeln('Введите число');
readln(a);
writeln('Сумма делителей числа ',a,': ',del(a));
if del(a)=a then writeln('Число является совершенным')
else writeln('Число не совершенное');
end.

@ilnazzak · 02.11.2010, 17:16 **[ТС]**

спасибо, тебо большое!!!

@ilnazzak 6 / 6 / 0 Регистрация: 26.09.2010 Сообщений: 9
		1
	Определить сумму всех делителей число и определить является ли число совершенным 02.11.2010, 16:52. Показов 3287. Ответов 2 Метки нет (Все метки) Определить сумму всех делителей число и определить является ли число совершенным(тоесть равно сумме его делителей кроме себя) - через функции решается. Добавлено через 16 минут люди помогите очень надо решение, я сейчас контрольную на уроке пишу, решение надо, помогите плиз. 0

@ilnazzak 6 / 6 / 0 Регистрация: 26.09.2010 Сообщений: 9
	02.11.2010, 17:16 [ТС]	3
	спасибо, тебо большое!!! 0

Опции темы

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

Решение