Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
0 / 0 / 0
Регистрация: 27.02.2016
Сообщений: 4
1

Расположить числа в порядке возрастания сумм их цифр

27.02.2016, 14:09. Просмотров 1799. Ответов 4
Метки нет (Все метки)

Задано N (1<N<6) различных целых положительных чисел, каждое из которых меньше числа 1000. Необходимо расположить эти числа в порядке возрастания сумм их цифр. При этом для любой пары чисел с одинаковой суммой цифр первым должно следовать меньшее из этих чисел. Количество чисел и их значения вводятся с клавиатуры.
Помогите пожалуйста решить задание.

Добавлено через 20 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Program Zadanie5;
Var 
m : integer;
n: array [1..6] of integer;
i: integer;
s: integer;
q: integer;
begin
readln(m);
for i:=1 to m do 
readln(N[i]);   
 for i:=1 to m do
 begin
 s:=0;
 while (N[i]<>0) do
      begin
        q:= N[i] mod 10;
        s:= s + q;
        N[I]:= N[i] div 10;
 end;
 end;
 end.
Это начало в котором вычисляется сумма цифр для каждого числа, не знаю, как делать дальше...
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.02.2016, 14:09
Ответы с готовыми решениями:

Расположить числа в порядке возрастания
Есть 4 числа, а, б, c, d нужно чтобы после из ввода компьютер выводил на экран пи помощи Write(...)...

Расположить числа в порядке возрастания
Дано три числа x,y,z. Числа целые, отличные друг от друга. После обработки данных числа должны ...

Все числа от a до b включительно отсортируйте в порядке возрастания суммы цифр
Все числа от a до b включительно отсортируйте в порядке возрастания суммы цифр. ПРИМЕР: а=15,...

10 чисел расположить в порядке возрастания
Нужно составить задачу, чтобы в итоге 10 чисел располагались в порядке возрастания!

4
CAPITAL OF ROCK!
1279 / 706 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
27.02.2016, 14:46 2
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
52
53
54
55
56
57
58
59
60
61
62
63
const
    nMax= 6;
procedure SwapElements(var x, y: Word);
var
    z: Word;
begin
    z := x;
    x := y;
    y := z;
end;
 
function Sum(x: Word): Byte;
var
    Result: Byte;
begin
    Result := 0;
    repeat
        Inc(Result, x mod 10);
        x := x div 10;
    until (x = 0);
    Sum := Result;
end;
 
function Compare(const x, y: Word): Boolean;
var
    Result: Boolean;
    sum1, sum2: Byte;
begin
    sum1 := Sum(x); sum2 := Sum(y);
    if (sum1 < sum2)
    then
        Result := False
    else
        if (sum1 > sum2)
        then
            Result := True
        else
            Result := (x > y);
    Compare := Result;
end;
var
    a: Array[1..nMax] Of Word;
    i, n, j: 1..nMax;
begin
    repeat
        Write('Input n (1..', nMax, ')=');
        ReadLn(n);
    until (n in [1..nMax]);
    Randomize(); WriteLn; Write('Original Array:');
    for i := 1 to n do
    begin
        a[i] := Random(999) + 1;
        Write(a[i]:4);
    end;
    WriteLn; Write('  Sorted Array:');
    for i := 1 to n - 1 do
        for j := 1 to n - i do
            if (Compare(a[j], a[j + 1]))
            then
                SwapElements(a[j], a[j + 1]);
    for i := 1 to n do
        Write(a[i]:4);
end.
1
Модератор
60534 / 45542 / 31430
Регистрация: 18.05.2008
Сообщений: 109,465
27.02.2016, 15:00 3
Лучший ответ Сообщение было отмечено Noconnecting как решение

Решение

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
Program Zadanie5;
function summa(n:integer):integer;
var m,s:integer;
begin
m:=abs(n);
s:=0;
while m>0 do
 begin
  s:=s+ m mod 10;
  m:=m div 10;
 end;
summa:=s;
end;
var n: array [1..5] of integer;
    m,i,j,x: integer;
begin
repeat
write('Введите количесто чисел от 2 до 5 m=');
readln(m);
until m in [2..5];
writeln('Введите числа');
for i:=1 to m do
readln(N[i]);
for i:=1 to m-1 do
for j:=i+1 to m do
if(summa(n[i])>summa(n[j]))or((summa(n[i])=summa(n[j]))and (n[i]>n[j]))then
 begin
  x:=n[i];
  n[i]:=n[j];
  n[j]:=x;
 end;
writeln('Числа в порядке возрастания сумм цифр');
for i:=1 to m do
write(n[i],' ')
end.
1
0 / 0 / 0
Регистрация: 27.02.2016
Сообщений: 4
27.02.2016, 16:01  [ТС] 4
Всем спасибо за решение. К моменту вашего ответа уже додумался сам, но все равно большое спасибо за помощь. Тему можно удалять.
0
Cyborg Drone
27.02.2016, 22:41     Расположить числа в порядке возрастания сумм их цифр
  #5

Не по теме:

Noconnecting, рекомендую Вам прочитать правила форума. Темы по просьбам пользователей не удаляются и не закрываются. Если тема не противоречит правилам форума, то она не может быть закрыта или удалена. После прочтения правил, может быть, поймёте, почему так.

0
27.02.2016, 22:41
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.02.2016, 22:41
Привет! Вот еще темы с ответами:

Расположить элементы массива в порядке возрастания
В любом заданном массиве расположить элементы массива в порядке возрастания.Вывести на экран...

Расположить элементы целочисленного вектора в порядке возрастания
6)расположить элементы целочисленного вектора в порядке возрастания. помогите пожалуйста.

Расположить элеметны числового массива x[n] в порядке возрастания их значений
Расположить элеметны числового массива x в порядке возрастания их значений ,используя алгоритм...

Элементы, находящиеся на периметре матрицы, расположить в порядке возрастания
Помогите, пожалуйста, нужно элементы, находящиеся на периметре двумерного массива, расположить в...


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

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

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