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

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

21.03.2010, 20:51. Просмотров 3317. Ответов 2
Метки нет (Все метки)


Вводится два целых 2-ух значных числа А, В.Определить у какого из них больше сумма цифр
(Если можно по подробней заранее спасибо)
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.03.2010, 20:51
Ответы с готовыми решениями:

Даны два натуральных числа. Выяснить, в каком из них сумма цифр больше
Даны два натуральных числа. Выяснить, в каком из них сумма цифр больше.(сумма цифр - функция). ...

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

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

Определить, превышает ли сумма цифр числа число, которое вводится с клавиатуры
1.Дано двузначное число (вводится с клавиатуры). Написать программу определения: превышает ли сумма...

2
code code
128 / 123 / 77
Регистрация: 11.10.2009
Сообщений: 375
21.03.2010, 21:50 2
Лучший ответ Сообщение было отмечено vitalia как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
USES CRT;
VAR m1,ch1,n1,n2,n3,n4,m2,ch2,n5,n6:LongInt;
BEGIN
ClrScr;
      ReadLn(ch1);
       readln(ch2);
   m1:=ch1;
    n1:=m1 div 100;
    n2:=m1 mod 10;
    n3:=(m1-n1*100-n2) div 10;
   m2:=ch2;
    n4:=m2 div 100;
    n5:=m2 mod 10;
    n6:=(m2-n4*100-n5) div 10;
 if n1+n2+n3>n4+n5+n6 then writeln('1>2');
 if n1+n2+n3<n4+n5+n6 then writeln('1<2')
 else writeln('1=2');
 end.
Проверяйте! Есть вопросы - welcome!
2
15 / 15 / 10
Регистрация: 20.03.2010
Сообщений: 74
21.03.2010, 21:55 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
24
25
Uses WinCrt;
Var
a,a1,a2,a3,b,b1,b2,b3:Integer;
Begin
Write('Введите первое число: ');
Read(a);
WriteLn('Введите второе число: ');
Read(b);
a1:=a mod 10;
a2:=a div 10;
a3:=a2+a1;
b1:=b mod 10;
b2:=b div 10;
b3:=b2+b1;
If a3 > b3 Then
Begin
WriteLn('Больше сумма цифр: ',a);
End;
If b3>a3 Then
Begin
WriteLn('Больше сумма цифр: ',b);
End;
If a3=b3 Then
WriteLn('Сумма цифр одинакова!');
End.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.03.2010, 21:55

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

Определить больше ли числа a сумма цифр числа
Здравствуйте, нужно решить задачу! Я наченающая программистка!=) 1. Вводится трехзначное число....

Даны два числа.Определить, их сумма больше 10 или нет
№1.Даны два числа.Определить, их сумма больше 10 или нет. №2.Найти двухзначные числа, вторая цифра...

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

Даны два натуральных числа. Выяснить в каком из них сумма цифр больше.
Даны два натуральных числа. Выяснить в каком из них сумма цифр больше.


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

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

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