Сумма цифр любого целого числа

@Aleshh · Регистрация: 15.01.2017

Студворк — интернет-сервис помощи студентам

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

@Joy · 17.01.2017, 09:39

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

Pascal
1
2
3
4
5
6
7
8
function S(a: longint):= a.ToString.ToCharArray.Sum(c -> strtoint(c));
 
var b: array of longint;
begin
  b:=ReadArrInteger('Введите набор:',ReadlnInteger('Длина набора:'));
  b := b.OrderBy(S).ToArray;
  writeln('Число с наибольшей суммой цифр:', b.Last); 
end.

или так:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
function FSum(a:integer):integer;
begin
  if a<>0 then FSum:=FSum(a div 10)+a mod 10;
end;
var
  n,l,t:integer;
begin
  n:=ReadlnInteger('n=');
  write('Введите последовательность:');
  for n:=1 to n do begin
    read(t);
    if FSum(t)>FSum(l) then l:=t;
  end;
  writeln('Число с наибольшей суммой цифр:',l);
end.

@Aleshh · 18.01.2017, 09:04 **[ТС]**

n:=ReadlnInteger('n=');
FSum:=FSum(a div 10)+a mod 10;
Я не понимаю это. Что это такое? Чем можно заменить попроще

@JuriiMW · 18.01.2017, 09:24

Aleshh, разве два оператора

Code
1
Write('n= '); ReadLn(n);

проще одного

Code
1
n:=ReadlnInteger('n=');

?

А второе — это рекурсивное сложение цифр числа…
Тоже, проще не куда!

Добавлено через 1 минуту
Joy, с циклом косяк!
Нужно:

Code
1
for var i:=1 to n do begin

@Joy · 18.01.2017, 11:21

JuriiMW, в чем косяк то?

@JuriiMW · 18.01.2017, 11:24

Joy, дык, в десятой строке!

@Joy · 18.01.2017, 11:39

JuriiMW, нет там косяка никакого, это же паскаль, а не С. В паскале такие фишки работают на ура, т.к. границы цикла определяются заранее и можно спокойно писать for n:=1 to n do...
вот тестовый прогон:

Code
1
2
3
n= 5
Введите последовательность:1 2 5 2 3
Число с наибольшей суммой цифр:5

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@Aleshh 0 / 0 / 0 Регистрация: 15.01.2017 Сообщений: 84

	Сумма цифр любого целого числа 16.01.2017, 22:43. Показов 1991. Ответов 6 Метки нет (Все метки) Написать функцию суммы цифр любого целого числа и найти число с наибольшей суммой цифр из N введенных. 0

@Aleshh 0 / 0 / 0 Регистрация: 15.01.2017 Сообщений: 84
	18.01.2017, 09:04 [ТС]
	n:=ReadlnInteger('n='); FSum:=FSum(a div 10)+a mod 10; Я не понимаю это. Что это такое? Чем можно заменить попроще 0

@Joy 2388 / 1300 / 1492 Регистрация: 29.08.2014 Сообщений: 4,665
	18.01.2017, 11:21
	JuriiMW, в чем косяк то? 0

@JuriiMW 5095 / 2661 / 2355 Регистрация: 10.12.2014 Сообщений: 10,060
	18.01.2017, 11:24
	Joy, дык, в десятой строке! 0