Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Valuamba
3 / 3 / 4
Регистрация: 03.11.2015
Сообщений: 81
1

Найти наибольшее четное число с наибольшей суммой делителей

12.11.2016, 11:52. Просмотров 173. Ответов 0
Метки нет (Все метки)

Вот мой код.Я разбил на четные числа и нашел сумму делителей каждого четного числа,только как их упорячдочить и найти максимальный у меня не получается.Подправьте пожалуйста
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
var b,i,j,k,m,n,g,r,l:integer;
    A:array[1..10000] of integer;
    C:array[1..10000] of integer;
    f:array[1..10000] of integer;
begin
j:=1;
i:=1;
n:=0;
f[i]:=0;
          for j:=1 to 30 do begin
           A[j]:=random(100);
           writeln('A[',j,']=',A[j]);
          end;
   for j:=1 to 30 do begin
    if A[j] mod 2 =0 then begin
    n:=n+1;
    C[n]:=A[j];
    end;
   end;
              for i:=1 to n do begin
              writeln('C[',i,']=',C[i]);
                for m:=3 to C[i] do begin
                 if C[i] mod m =0 then
                 f[i]:=f[i]+m;
                end;
                writeln('F[',i,']------------',f[i]);
              end;                        
for i:=1 to n-1 do                        
if f[i]>f[i+1] then begin                  
   C[i+1]:=C[i]
   end;
   writeln(C[i+1],'-------');
end.
P.S Вот здесь что-то точно не так
Pascal
1
2
3
4
5
for i:=1 to n-1 do                        
if f[i]>f[i+1] then begin                  
   C[i+1]:=C[i]
   end;
   writeln(C[i+1],'-------');
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.11.2016, 11:52
Ответы с готовыми решениями:

Найдите и выведите число N с наибольшей суммой своих делителей
На натуральном отрезке найдите и выведите число N с наибольшей суммой своих...

На натуральном отрезке [a, b] найдите и выведите число N с наибольшей суммой своих делителей
program aid; { На натуральном отрезке найдите и выведите число N с ...

На натуральном отрезке [a,b] найдите и выведите число N с наибольшей суммой своих делителей
на натуральном отрезке найдите и выведите число N с наибольшей суммой своих...

Найти натуральное число от 1 до 10000 с максимальной суммой делителей
найти натуральное число от 1 до 10000 с максимальной суммой делителей. program...

Циклы: в интервале [A, B] найти число, имеющее наибольшее количество делителей
В интервале найти число, имеющее наибольшее количество делителей. (10 ≤ A, B ≤...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.11.2016, 11:52

Найти на отрезке [A,B] натуральное число, имеющее наибольшее количество делителей.
Найти на отрезке натуральное число, имеющее наибольшее количество делителей.

Найти на отрезке [A, B] натуральное число, имеющее наибольшее количество делителей
1) Найти на отрезке натуральное число, имеющее наибольшее количество...

Найти на отрезке [A,B] натуральное число, имеющее наибольшее количество делителей
Найти на отрезке натуральное число, имеющее наибольшее количество делителей.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru