Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
1 / 1 / 0
Регистрация: 22.09.2013
Сообщений: 21
1

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

06.10.2013, 19:49. Показов 1117. Ответов 1
Метки нет (Все метки)

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

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

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

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

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

1
350 / 343 / 279
Регистрация: 21.05.2013
Сообщений: 1,312
07.10.2013, 21:21 2
Лучший ответ Сообщение было отмечено Kopylov как решение

Решение

Кликните здесь для просмотра всего текста
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
program Kopylov;
uses crt;
VAR a,b,a2,b2,sum1,sum2:integer;
BEGIN
sum1:=0;sum2:=0;
Write('Enter first number = ');readln(a);//ввод числа 1
Write('Enter second number = ');readln(b);//ввод числа 2
a2:=a;b2:=b;//делаем дубликаты чисел
While (a2<>0) do//запус цыкла + суму чисел в цыфре
  begin
    sum1:=(sum1+(a2 mod 10));//к суме + последнее число
    a2:=(a2 div 10);//убираем число(последнее) которое + к суме
  end;
  While (b2<>0) do//аналогические действие с 2 цыфрой
  begin
    sum2:=(sum2+(b2 mod 10));
    b2:=(b2 div 10);
  end;
Writeln('Sum [',a,'] = ',sum1);//Пишем суму 1
Writeln('Sum [',b,'] = ',sum2);//Пишем суму 2
Write('Answer = ');
If (sum1 >= sum2) then Write(a)//ввыводим на екран ответ(какая сума больше,то ввыводим цыфру с большей сумой чисел)
    else Write(b);
Writeln;
END.

примерно вот так
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.10.2013, 21:21

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

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

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

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

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

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

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


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

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

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