Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Найти площадь 3х прямоугольников, используя подпрограммы https://www.cyberforum.ru/ pascalabc/ thread1388617.html
Даны действительные числа а1,b1(длина и ширина первого прямоугольника) a2,b2(длина и ширина второго прямоугольника) a3,b3(длина и ширина третьего прямоугольника) соответственно. Найти сумму площадей...
Как подключить модули к этой программе Pascal ABC
Program Piano; Uses crt,speaker, dos, mouse, graph, graphs; const maks:array of integer =( ($E1FF,$EDFF,$EDFF,$EDFF, $EDFF,$EC00,$EDB6,$EDB6, $0DB6,$6FFE,$6FFE,$6FFE, ...
Pascal ABC Сформировать массив a[1.n], упорядоченный по возрастанию. Определить, содержит ли он заданное число
Сформировать массив a, упорядоченный по возрастанию. Определить, содержит ли он заданное число. Если элемент не найден, то вставить его в массив на второе место.
Pascal ABC Сформировать массив a[1.n], элементы которого выбираются случайным образом из интервала [100, 200] Сформировать массив a, элементы которого выбираются случайным образом из интервала . Определить, содержит ли он заданное число. Если элемент найден, то удалить его из массива. https://www.cyberforum.ru/ pascalabc/ thread1388431.html
Pascal ABC Найти размер самой длинной ниспадающей последовательности https://www.cyberforum.ru/ pascalabc/ thread1388410.html
В файле состоит из действительных чисел , найти размер самой длинной неспадаючои последовательности .
Pascal ABC Если точка совпадает с началом координат, то вывести 0
Данные целочисленные координаты точки на плоскости . Если точка совпадает с началом координат , то вывести 0. Если точка не совпадает с началом координат , но лежит на оси OX или OY , то вывести...
Pascal ABC Вывод на экран случайных эллипсов, линий, треугольников, прямоугольков, ромбов, линий, пикселей
вывод на экран случайных эллипсов, линий, треугольников, прямоугольков, ромбов, линий, пикселей и т.д
Pascal ABC Нахождение максимального значения в массиве среди всех элементов после первого отрицательного Задание :Нахождение максимального значения в массиве среди всех элементов после первого отрицательного. Длина и значения элементов массива вводятся с клавиатуры. Добавлено через 12 минут... https://www.cyberforum.ru/ pascalabc/ thread1388161.html
Pascal ABC Составить программу, определяющую какой стране относится указанная столица https://www.cyberforum.ru/ pascalabc/ thread1388131.html
Определить два перечислимых типа: страны и столицы. Нужно составить программу, определяющую какой стране относится указанная столица.
Pascal ABC Как произвести сортировку прямого выбора чётных столбцов Отсортировать в двумерном массиве целых случайных чисел чётные столбцы методом сортировки прямого выбора https://www.cyberforum.ru/ pascalabc/ thread1388120.html
4264 / 2045 / 2098
Регистрация: 10.12.2014
Сообщений: 7,888
06.03.2015, 08:10 0

Даны 2 числа, определить у какого числа сумма цифр больше (через процедуру)

06.03.2015, 08:10. Просмотров 5588. Ответов 3
Метки (Все метки)

Ответ


Puporev, я бы использовал case для более красивого кода ответа:
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
procedure summa(a: integer; var s: integer);
var
  b: integer;
begin
  b := a;
  s := 0;
  while b > 0 do
  begin
    s := s + b mod 10;
    b := b div 10
  end;
end;
 
var
  m, n, s1, s2: integer;
 
begin
  writeln('Введите 2 числа');
  readln(m, n);
  summa(m, s1);
  summa(n, s2);
  writeln('Сумма цифр числа ', m, '=', s1);
  writeln('Сумма цифр числа ', n, '=', s2);
  case sign(s1 - s2) of
    +1 : write('Первая сумма больше');
    -1 : write('Вторая сумма больше');
  else   write('Суммы одинаковые')
  end;
end.


Вернуться к обсуждению:
Даны 2 числа, определить у какого числа сумма цифр больше (через процедуру)
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.03.2015, 08:10
Готовые ответы и решения:

Вводится два целых числа. Определить у какого из них больше сумма цифр
Вводится два целых 2-ух значных числа А, В.Определить у какого из них больше сумма цифр (Если...

Даны 3 числа. Для каждого из этих чисел, найти сумму цифр числа и определить у кокого числа сумма больше
Даны 3 числа. Для каждого из этих чисел, найти сумму цифр числа и определить у кокого числа сумма...

Даны три натуральных числа. Определить, в каком из них сумма цифр больше.
Помогите решить задачу. Даны три натуральных числа. Определить, в каком из них сумма цифр больше....

Найти, у какого числа сумма цифр больше
даны 3 числа. найти у какого числа сумма цифр больше. нужно решить с помощью процедур!

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