Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
Ticey
0 / 0 / 0
Регистрация: 16.05.2017
Сообщений: 5
#1

Вводятся 3 натуральных числа. Найти сумму цифр каждого из них

16.05.2017, 22:58. Просмотров 768. Ответов 6
Метки нет (Все метки)

Вводятся 3 натуральных числа. Найти сумму цифр каждого из них (создать функцию для нахождения суммы цифр произвольного натурального числа).
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.05.2017, 22:58
Ответы с готовыми решениями:

Найти сумму цифр каждого числа и записать в новый массив
дан одномерный массив, в котором хранятся N целых чисел. найти сумму цифр...

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

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

Найти количество и сумму цифр числа, и сумму цифр больших, чем 6
С клавиатуры вводится натуральное число Х (n-разрядное, 1<=n<=10). подсчитать...

Вводятся числа, найти общую сумму и количество нулей
Вводятся числа, найти общую сумму и количество нулей. ЗЫ: Совсем чайник. =(

6
Zwelenewskiy
119 / 119 / 105
Регистрация: 09.01.2017
Сообщений: 1,189
Завершенные тесты: 1
16.05.2017, 23:37 #2
Лучший ответ Сообщение было отмечено Ticey как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
function Ch(x: integer): integer;
var
  s: integer;
begin
  while x <> 0 do
  begin
    s += x mod 10;
    x := x div 10;
  end;
  Ch := s;
end;
 
BEGIN
  var n := ReadlnInteger('Введите кол-во чисел: '); 
  
  for var i: integer := 1 to n do
  begin
    var a := ReadlnInteger('Введите натуральное число: ');
    writeln('Сумма цифр ', i, '-го числа: ', Ch(a));
    writeln;
  end;
END.
1
Hitoku
Модератор
1697 / 1296 / 1400
Регистрация: 28.10.2016
Сообщений: 4,240
Завершенные тесты: 4
16.05.2017, 23:46 #3
Pascal
1
2
3
4
5
function Sum(n: integer): integer:=n.ToString.Where(v -> v <> '-').Aggregate(0, (x, v) -> x + integer.Parse(v));
begin
  for var i := 1 to 3 do
    writeln('Сумма: ', Sum(ReadlnInteger('Введите ' + i + ' число:')));
end.
0
Joy
Эксперт Pascal/Delphi
2141 / 1180 / 1426
Регистрация: 29.08.2014
Сообщений: 4,321
17.05.2017, 04:33 #4
Pascal
1
2
3
4
function SNum(i:integer):=inttostr(i).Sum(c->strtoint(c));
begin
  range(1,3).Select(i->format('Сумма={0}{1}',SNum(ReadlnInteger(format('введите {0} число:',i))),newline)).Println;
end.
0
Hitoku
17.05.2017, 04:42
  #5

Не по теме:

Удалил

0
Joy
Эксперт Pascal/Delphi
2141 / 1180 / 1426
Регистрация: 29.08.2014
Сообщений: 4,321
17.05.2017, 04:44 #6
Hitoku, написано
Цитата Сообщение от Ticey Посмотреть сообщение
Вводятся 3 натуральных числа
0
Hitoku
17.05.2017, 04:47     Вводятся 3 натуральных числа. Найти сумму цифр каждого из них
  #7

Не по теме:

Joy, да, я заметил. Лопухнулся, что поделаешь :)

0
17.05.2017, 04:47
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.05.2017, 04:47
Привет! Вот еще темы с ответами:

Вводятся три числа A, B, C. Выведите все целые числа от наименьшего из них до наибольшего
Вводятся три числа A, B, C. Выведите все целые числа от наименьшего из них до...

Вводятся 4 натуральных числа, не превосходящих 10000
В последние четыре дня до олимпиады по программированию на весенних каникулах...

Найти сумму делителей для каждого из элементов массива, и сформировать из них новый массив
Задача: Дан целочисленный массив С из m элементов, m=22. Найти сумму...


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

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

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