Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
1 / 1 / 0
Регистрация: 11.04.2010
Сообщений: 191
1

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

10.04.2011, 10:59. Показов 1508. Ответов 1
Метки нет (Все метки)

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

Заранее спс
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.04.2011, 10:59
Ответы с готовыми решениями:

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

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

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

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

1
2856 / 1985 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
10.04.2011, 11:19 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Function summa(n:integer):integer;
Var
 sum:integer;
begin
sum:=0;
 repeat
  sum:=sum+(n mod 10);
  n:=n div 10;
 until n=0;
summa:=sum;
end;
 
Var
 i,j:integer;
begin
 readln(i,j);
 if summa(i)>summa(j) then writeln('Â ïåðâîì ñóììà áîëüøå')
 else if summa(i)<summa(j) then writeln('Âo âòîðîì ñóììà áîëüøå')
 else writeln('=');
 readln
end.
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.04.2011, 11:19

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

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

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

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

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


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

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

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