Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.76/25: Рейтинг темы: голосов - 25, средняя оценка - 4.76
0 / 0 / 2
Регистрация: 06.10.2014
Сообщений: 67
1

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

05.03.2015, 19:22. Просмотров 4990. Ответов 3
Метки нет (Все метки)

Помогите решить задачу:

Даны 2 числа, определить у какого числа сумма цифр больше нахождение оформить в виде процедуры
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.03.2015, 19:22
Ответы с готовыми решениями:

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

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

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

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

3
Модератор
62528 / 46707 / 32192
Регистрация: 18.05.2008
Сообщений: 113,021
05.03.2015, 20:13 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
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.
1
4192 / 1993 / 2071
Регистрация: 10.12.2014
Сообщений: 7,627
06.03.2015, 08:10 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.
0
Модератор
62528 / 46707 / 32192
Регистрация: 18.05.2008
Сообщений: 113,021
06.03.2015, 08:18 4
Раздел просто АВС, а не net а это в простом не будет работать.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.03.2015, 08:18

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Функция, определяющая, у какого числа сумма цифр больше
Помогите написать программу с комментариями (Функции) Написать функцию, которая принимает два...

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

Даны натуральные числа n и m. Определить, является ли сумма квадратов цифр числа n кратной числу m
Помогите очень долго голову ломал, запутался...:(

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


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

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

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