Форум программистов, компьютерный форум, киберфорум
Наши страницы

PascalABC.NET

Войти
Регистрация
Восстановить пароль
 
Ticey
0 / 0 / 0
Регистрация: 16.05.2017
Сообщений: 4
#1

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

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

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

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

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

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

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

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

Вводятся три числа A, B, C. Выведите все целые числа от наименьшего из них до наибольшего - PascalABC.NET
Вводятся три числа A, B, C. Выведите все целые числа от наименьшего из них до наибольшего. Сделать программу только без команд Println ,...

6
Zwelenewskiy
118 / 118 / 41
Регистрация: 09.01.2017
Сообщений: 979
16.05.2017, 23:37 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
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
Sample text
737 / 604 / 304
Регистрация: 28.10.2016
Сообщений: 2,033
Завершенные тесты: 3
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
2063 / 1103 / 832
Регистрация: 29.08.2014
Сообщений: 4,011
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
2063 / 1103 / 832
Регистрация: 29.08.2014
Сообщений: 4,011
17.05.2017, 04:44 #6
Hitoku, написано
Цитата Сообщение от Ticey Посмотреть сообщение
Вводятся 3 натуральных числа
0
Hitoku
17.05.2017, 04:47     Вводятся 3 натуральных числа. Найти сумму цифр каждого из них
  #7

Не по теме:

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

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

Вводятся 4 натуральных числа, не превосходящих 10000 - PascalABC.NET
В последние четыре дня до олимпиады по программированию на весенних каникулах Аскар готовился очень серьезно. Каждый день он решал разное...

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

Вводятся числа. Конец ввода - 0. Найти сумму положительных четных трехзначных чисел - PascalABC.NET
:read:

Найти суммы цифр каждого числа без учета повторяющихся цифр. Повторяющиеся суммы удалить. - Pascal
Найти суммы цифр каждого числа без учета повторяющихся цифр. Повторяющиеся суммы удалить.


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

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

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