Форум программистов, компьютерный форум, киберфорум
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
Модератор
63223 / 46978 / 32379
Регистрация: 18.05.2008
Сообщений: 113,863
05.03.2015, 20:13 0

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

05.03.2015, 20:13. Просмотров 5676. Ответов 3
Метки (Все метки)

Ответ


Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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);
if s1>s2 then write('Первая сумма больше')
else if s2>s1 then write('Вторая сумма больше')
else write('Суммы одинаковые')
end.


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

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

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

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

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

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