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

Найти, у какого числа сумма цифр больше

15.11.2011, 17:28. Просмотров 921. Ответов 3
Метки нет (Все метки)


даны 3 числа. найти у какого числа сумма цифр больше. нужно решить с помощью процедур!
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.11.2011, 17:28
Ответы с готовыми решениями:

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

Найти все трехзначные числа, сумма цифр которых больше 15
2. Найти все трехзначные числа, сумма цифр которых больше 15 3.Найти все натуральные числа а, b и...

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

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

3
2855 / 1984 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
15.11.2011, 17:34 2
nastenkaa,
 Комментарий модератора 
называйте темы информативно
0
0 / 0 / 0
Регистрация: 01.10.2011
Сообщений: 67
16.11.2011, 18:58  [ТС] 3
помогите пожалуйста!
0
Модератор
62858 / 46905 / 32327
Регистрация: 18.05.2008
Сообщений: 113,651
16.11.2011, 19:28 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
30
31
32
33
34
35
36
37
38
39
40
41
uses crt;
procedure Summa(n:longint;var s:byte);
var m:longint;
begin
m:=n;
s:=0;
while m>0 do
 begin
  s:=s+m mod 10;
  m:=m div 10;
 end;
writeln('Сумма цифр числа ',n,'=',s);
end;
 
var a,b,c,d:longint;
    sa,sb,sc,mx:byte;
begin
clrscr;
writeln('Введите 3 натуральных числа:');
readln(a,b,c);
Summa(a,sa);
Summa(b,sb);
Summa(c,sc);
if sa>sb then
 begin
  mx:=sa;
  d:=a;
 end
else
 begin
  mx:=sb;
  d:=b;
 end;
if sc>mx then
 begin
  mx:=sc;
  d:=c;
 end;
write('Максимальная сумма цифр=',mx,' у числа ',d);
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.11.2011, 19:28

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

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

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

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

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


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

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

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