Версия для печати темы

Автор: Аня 20.12.2005 22:40

Здравствуйте, уважаемые.
Я была бы очень признательна, если б вы мне помогли разобраться в задаче, и если можно то, решить.
Найти все дружественные числа, лежащие в диапазоне от 200 до 300.
Я посмотрела на вашем форуме, что такое дружественные числа, но так ничего и не поняла. Всех делителей, значит и само число? Т.е. у числа двести, например делители 200, 100, 50, 25, 10, 5, 2, 1, и эта сумма, точнее 393, должна точно так же разложиться на делители, чтобы ее сумма получилась равной 200? Но тогда ведь заведомо известно, что сумма будет больше 200, т. к. первый делитель это как минимум 393. Я ничего не пониманию, помогите, если сможете, люди добрые.

Автор: klem4 20.12.2005 23:00

Числа называются дружественными, если каждое из них равно сумме делителей другого, не считая самого себя, но считая единицу, вот программа , которая выводит числа от 1 до С, которые равны сумме своих делителей, тебе надо перебрать просто все числа по парам используя этот алгоритм :

uses crt;
var
   C,count,i,j,s : word;
begin

   write('C = '); readln(C );

   count := 0;

   for i := 1 to C  do begin
      s := 0;
      for j := 1 to i div 2 do begin
         if i mod j = 0 then begin
            writeln(j,' - delitel ',i);
            s := s + j;
         end;
         if s = i then begin
            writeln('Chislo ',i,' ravno summe svoih delitelei');
            readln;
            inc(count);
         end;
      end;
   end;
   readln
end.

Автор: Гость 20.12.2005 23:46

Спасибо тебе огромное человеческое, ты меня буквально спас от провала на зачете по информатике. Спасибо наиогромнешее. Был бы рядом, я б тебя поцеловала.

Автор: Мария 30.12.2010 4:04

помогите,пожалуйста=))
не знаю как решать задачу=(мозг вскипел=(
она тоже про дружественные числа...
вот условие: Натуральные числа a и b называются дружественными, если сумма делителей одного из них равна другому и наоборот(например,220 и 284). Найти все дружественные числа отрезка [x;y]. Решить в VBA=(((

Автор: Lapp 30.12.2010 8:08

Цитата(Мария @ 30.12.2010 0:04)