Получить члены последовательности

@DarikS · Регистрация: 14.05.2010

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

Помогите решить задачку пожалуйста. -- Дано натуральное число n и целые числа A1....An.Получить все члены последовательности, являющиеся совершенными числами.
з.ы.заранее спасибо

@AnTro.Net · 14.05.2010, 03:29

что такое совершенное число?

простите за вопрос, но все же.

@Puporev · 14.05.2010, 07:05

что такое совершенное число?

И после этого ты во всех темах предлагаешь платные услуги, фрилансер недоделанный?

@AnTro.Net · 14.05.2010, 10:02

я просто неправильно прочел слово))

@DarikS · 14.05.2010, 15:18 **[ТС]**

Блин. помогите с решением пожалуйста

@Puporev · 14.05.2010, 15:33

Pascal

program poln_chis;
uses crt;
var n,i,k,j:longint;
begin
clrscr;
write('n=');readln(n);
for i:=1 to n do
   begin
    k:=0;
    for j:=1 to i-1 do
       if i mod j=0 then
          begin
            k:=k+j;
          end;
       if k=i then write(i,' ');
     end;
  readln;
end.

почитайте хоть на досуге.
http://ru.wikipedia.org/wiki/%... 0%BB%D0%BE

@DarikS · 14.05.2010, 21:59 **[ТС]**

огромное спасибо

@DarikS 0 / 0 / 0 Регистрация: 14.05.2010 Сообщений: 11
		1
	Получить члены последовательности 14.05.2010, 00:44. Показов 600. Ответов 6 Метки нет (Все метки) Помогите решить задачку пожалуйста. -- Дано натуральное число n и целые числа A1....An.Получить все члены последовательности, являющиеся совершенными числами. з.ы.заранее спасибо 0

@AnTro.Net 131 / 127 / 50 Регистрация: 28.04.2010 Сообщений: 928
	14.05.2010, 03:29	2
	что такое совершенное число? простите за вопрос, но все же. 1

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	14.05.2010, 07:05	3
	что такое совершенное число? И после этого ты во всех темах предлагаешь платные услуги, фрилансер недоделанный? 0

@AnTro.Net 131 / 127 / 50 Регистрация: 28.04.2010 Сообщений: 928
	14.05.2010, 10:02	4
	я просто неправильно прочел слово)) 0

@DarikS 0 / 0 / 0 Регистрация: 14.05.2010 Сообщений: 11
	14.05.2010, 15:18 [ТС]	5
	Блин. помогите с решением пожалуйста 0

@DarikS 0 / 0 / 0 Регистрация: 14.05.2010 Сообщений: 11
	14.05.2010, 21:59 [ТС]	7
	огромное спасибо 0

Опции темы