Функция: найти цифровой корень числа

@Flar · Регистрация: 02.05.2010

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

Доброго времени суток, столкнулся с проблемой при написании программы ддля задачи: Напишите функцию, которая находит цифровой корень числа. (т.е. для числа 78956 = 7+8+9+5+6)
Изначально предполагалось решить задачу путем цикла где число будет постоянно делится на 10 и остаток от деления будет складываться. но для этого нужно определить длину данного числа. рационально ли будет сначало узнавать его длину, а потом уже делать цикл. Лио имеются другие варианты.
Заранее благодарен

@Unrealler · 16.05.2010, 15:49

Самый простой способ - это загонять число как строку, а потом в цикле от 1 до длины строки выводить каждый символ через +

@Flar · 17.05.2010, 14:28 **[ТС]**

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

Добавлено через 22 часа 35 минут

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Program Croot;
 uses crt;
 var ch,s:integer;
 Function sred(a,r:integer):integer;
  begin repeat r:=s+a mod 10; a:= a div 10;
  If (s div 10 <> 0) and (a=0) Then begin a:=r; s:=0; end;
          until a=0; end;
begin clrscr;
 write ('vvedite neobhodimoe chislo'); readln (ch);
 S:=0; s:=sred(ch,s);
 writeln(s);
end.

Где-то закралась ошибка. а где - понять не могу

Новые блоги и статьи Все статьи Все блоги /
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .

@Flar 1 / 1 / 1 Регистрация: 02.05.2010 Сообщений: 33

	Функция: найти цифровой корень числа 16.05.2010, 15:18. Показов 1750. Ответов 2 Метки нет (Все метки) Доброго времени суток, столкнулся с проблемой при написании программы ддля задачи: Напишите функцию, которая находит цифровой корень числа. (т.е. для числа 78956 = 7+8+9+5+6) Изначально предполагалось решить задачу путем цикла где число будет постоянно делится на 10 и остаток от деления будет складываться. но для этого нужно определить длину данного числа. рационально ли будет сначало узнавать его длину, а потом уже делать цикл. Лио имеются другие варианты. Заранее благодарен 1

@Unrealler 654 / 352 / 113 Регистрация: 11.12.2009 Сообщений: 508
	16.05.2010, 15:49
	Самый простой способ - это загонять число как строку, а потом в цикле от 1 до длины строки выводить каждый символ через + 0

Функция: найти цифровой корень числа

Решение