Массивы... Дружественные числа, счасливые числа... и т.д.

@WorthyEnemy · Регистрация: 08.06.2010

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

Всем привет... Я тут впервый раз...
Дело обстоит так... Я уже ни знаю что и делать... Перепробовал все.... Ни как ни могу сделать лабу по инфе...
1)Дано натуральное число N и a1… an . В последовательности a1… an оставить такие пары чисел, которые являются дружественными.
Примечание: два числа считаются дружественными, если каждое из низ равно сумме делителей другого, кроме самого этого числа.
2)Дан массив натуральных чисел. Удалить из массива все числа, которые не являются счастливыми.
3)Дан массив целых чисел. Оставить в массиве те числа, о которых можно утверждать, что они предоставлены в восьмеричной системе исчисления.

Третью задачку кое как сделал, но все равно не правильно, хотя я и понимаю что на верном пути...

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
uses CRT;
const WS=100;
type masiv=array[1..WS] of integer;
var m,chm:masiv;
    rm,rchm,i,i2,kl:byte;
{процедура ввода элементов массива}
procedure pr_vvod_mas(var n:byte; var mas:masiv);
var i,kl:byte;
begin
     writeln('1 - ввод с клавиатуры, 2 - ввод случайным образом');
     readln(kl);
     if kl=2 then randomize;
     writeln('введи сколько чисел нужно проверить');
     readln(n);
     {цикл для ввода элементов массива}
     for i:=1 to n do
     case kl of
     1:begin writeln('введи ',i,'-ое число'); readln(mas[i]);end;
     2:mas[i]:=random(5000); end;
     writeln;
end;
{процедура вывода эл.массива}
procedure pr_aut_mas(n:byte; mas:masiv);
var i:byte;
begin
    writeln;
    {цикл для вывода эл.массива}
    for i:=1 to n do
    write(mas[i]:6);
    writeln;
end;
{процедура разложения цисла в массив}
procedure pr_razl(mas:masiv; p:byte; var mas2:masiv; var n2:byte);
var i:byte;
    cop:integer;
begin
     cop:=mas[p]; i:=1;
     while cop<>0 do
     begin
          mas2[i]:=cop mod 10;
          cop:=cop div 10;
          inc(i);
     end;
     n2:=i;
end;
{процедура поиска цифр не входящих в 8 ст. сч.}
procedure pr_poisk(n:byte; mas:masiv; var ch:byte);
var i:byte;
begin
     for i:=1 to n do
     if mas[i]>=8 then begin ch:=2; break; end;
end;
{основная программа}
begin
     pr_vvod_mas(rm,m);
     writeln('исходные числа');
     pr_aut_mas(rm,m);
     kl:=1;
     for i:=1 to rm do
     begin
          pr_razl(m,i,chm,rchm);
          pr_poisk(rchm,chm,kl);
          if kl=2 then begin
                              for i2:=i to rm-1 do
                              m[i2]:=m[i2+1];
                              dec(rm);
                       end;
     end;
     writeln('числа, про которые можно точно утверждать, что они в восьмеричной системе счисления:');
     pr_aut_mas(rm,m);
end.

Кто-нибудь помогите с прогами, плиз!

@Hidalgo08 · 09.06.2010, 04:12

1. дружественные

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
program zadacha_15;
 
uses
  crt;
 
var
  a: longint;{первое число}                                                  
  b: integer;{делители числа s}                                              
  i: integer; {делители числа a}                                             
  s: integer;{сумма делителей первого числа}                        
  s1: integer;{сумма делителей s}                                           
 
begin
  clrscr;                                                                  
  writeln('Программа, находящая все дружественные');        
  writeln('числа в интервале от 1 до 10000');                          
  readln;                                                               
  for a := 2 to 10000 do {цикл для проверки первых чисел}            
  begin
    s := 0;                                                              
    for i := 1 to a - 1 do {находим все делители числа а,
                                 исключая само число}
    begin
      if a mod i = 0 then {находится сумма делителей числа а}         
      begin
        s := s + i;                                                      
      end;                                                           
    end;                                                             
    s1 := 0;                                                         
    for b := 1 to s - 1 do{цикл для проверки вторых чисел, 
                                   которые являются суммой                  
                                   делителей первого числа}
    begin
      if s mod b = 0 then {находим все делители чила s  
                                                 (сумма делителей числа а)}
      begin
        s1 := s1 + b;                                              
      end;                                                         
    end;                                                       
    if (s1 = a) and (s <> a) then {сумма делителей суммы        
                                           делителей числа а должна           
                                           быть равна числу а, а              
                                           сумма делителей числа а        
                                           не должна быть равна        
                                           этому числу}
    begin
      writeln('Числа ', a, ' и ', s, ' - дружественные');  
    end;             
  end;                    
  readln;               
end.

@WorthyEnemy · 09.06.2010, 07:13 **[ТС]**

Hidalgo08, Красава, но это я тоже нашел на задачник - решебник ...
И мне нужно другое...(((

@Puporev · 09.06.2010, 07:24

Искать в массиве пары дружественных чисел это тоже что искать иголку в стоге сена, только идиот мог придумать это, из чисел которыми мы как правило оперируем первая пара это 284 и 220,
А как мы вводим массивы? Типа
a[i]:=random(100); и ищите......

@WorthyEnemy · 09.06.2010, 19:28 **[ТС]**

И что же мне делать? Мне блин лабу сдать надо

А что на счет третьей задачки? Кто может сказать в чем ошибка, и как ее исправить?

Новые блоги и статьи Все статьи Все блоги /
Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025

@WorthyEnemy 0 / 0 / 0 Регистрация: 08.06.2010 Сообщений: 6
	09.06.2010, 07:13 [ТС]
	Hidalgo08, Красава, но это я тоже нашел на задачник - решебник ... И мне нужно другое...((( 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	09.06.2010, 07:24
	Искать в массиве пары дружественных чисел это тоже что искать иголку в стоге сена, только идиот мог придумать это, из чисел которыми мы как правило оперируем первая пара это 284 и 220, А как мы вводим массивы? Типа a[i]:=random(100); и ищите...... 0

@WorthyEnemy 0 / 0 / 0 Регистрация: 08.06.2010 Сообщений: 6
	09.06.2010, 19:28 [ТС]
	И что же мне делать? Мне блин лабу сдать надо А что на счет третьей задачки? Кто может сказать в чем ошибка, и как ее исправить? 0