Найти сумму цифр числа

@Макар Ивашко · Регистрация: 14.10.2015

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

сама задача дано 6-значное число надо узнать его сумму цифр, потом суму цифр его цифр, и так далее до тех пор пока она не станет однозначным числом

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
 var k,a:longint;
 begin
  read (a);
  while a<10 do begin
   k:=0;
   while a>0 do begin
     k:=k+a mod 10;
     a:=a div 10;
   end;
   a:=k;
  end;
 write (a);
end.

@volvo · 14.10.2015, 21:34

Нормально все работает, если в 4-ой строке поменять знак с "<" на ">="

@Макар Ивашко · 14.10.2015, 21:57 **[ТС]**

тоже runtime error

@JokeR.BY · 15.10.2015, 01:52

всё отлично работает.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
    k, x: LongWord;
begin
    Write('x='); ReadLn(x);
    while (x > 9) do
    begin
        k := 0;
        while (x > 0) do
        begin
            Inc(k, x mod 10);
            x := x div 10;
        end;
        x := k;
    end;
    WriteLn(x);
end.

@Cyborg Drone · 18.10.2015, 22:47

Можно проще.

Pascal
1
2
3
4
5
6
7
8
9
var n: integer;
begin
  write('n = ');
  readln(n);
  n := abs(n);
  while n > 9 do n := n div 10 + n mod 10;
  write('Digital root = ', n);
  readln
end.

Для сдачи на так называемый "обучающий" сайт вот так сойдёт:

Pascal
1
2
3
4
5
6
var n: integer;
begin
  read(n);
  while n > 9 do n := n div 10 + n mod 10;
  write(n)
end.

Новые блоги и статьи Все статьи Все блоги /
Kanban или Scrum - что выбрать? EggHead 27.04.2025 Kanban и Scrum — уже много лет удерживают лидирующие позиции среди гибких подходов. Руководители проектов и команды разработчиков то и дело сталкиваются с дилеммой: какой из этих двух методов выбрать. . .	Кастомные Middleware на C# в ASP.NET Core UnmanagedCoder 27.04.2025 Разработка веб-приложений сегодня мало напоминает монолитное программирование прошлых лет. На смену громоздким блокам кода пришла модульная архитектура, где каждый компонент выполняет строго. . .	Анализ и линтинг кода JavaScript: ESLint, Prettier и JSHint run.dev 26.04.2025 JavaScript прошёл долгий путь от простого языка для анимации веб-страниц до основы современной веб-разработки. С ростом сложности приложений, увеличением кодовых баз и масштабированием команд. . .	Паттерны в Python: Singleton, Factory и Observer py-thonny 26.04.2025 Паттерны проектирования — это проверенные временем решения типовых проблем разработки программного обеспечения. Их история берёт начало с книги "Приёмы объектно-ориентированного проектирования. . . .	Исключения в C#: Stack Overflow, Access Violation и Out of memory stackOverflow 26.04.2025 Исключения в C# — это не только механизм оповещения о проблемах, а целое искусство управления потоком выполнения программы в экстремальных ситуациях. Обычное исключение, например,. . .
Логирование в C# ASP.NET Core с помощью Serilog, ElasticSearch, Kibana stackOverflow 25.04.2025 Помните те времена, когда для анализа проблемы приходилось подключаться к серверу, искать нужный лог-файл среди десятков других и вручную фильтровать тысячи строк в поисках ошибки? К счастью, эти дни. . .	Структура "железный OnKeyUp" вместо антидребезга. Полностью асинхронный счётчик. Hrethgir 25.04.2025 Программа для симуляции схемы - Logisim Evolution В общем какое-то время отвлёкся, так было надо, теперь когда запилю это на verilog и FPGA , досоставлю заявку в ФИПС на полезную модель - не готов. . .	Автоматизация Amazon Web Services (AWS) с Boto3 в Python py-thonny 25.04.2025 Облачные вычисления стали неотъемлемой частью современной ИТ-инфраструктуры, а Amazon Web Services (AWS) занимает лидирующие позиции среди провайдеров облачных услуг. Управление многочисленными. . .	Apache Kafka vs RabbitMQ в микросервисной архитектуре ArchitectMsa 25.04.2025 Современная разработка ПО всё чаще склоняется к микросервисной архитектуре — подходу, при котором приложение разбивается на множество небольших, автономных сервисов. В этой распределённой среде. . .	Параллельное программирование с OpenMP в C++ NullReferenced 24.04.2025 Параллельное программирование — подход к созданию программ, когда одна задача разбивается на несколько подзадач, которые могут выполняться одновременно. Оно стало необходимым навыком для. . .

@volvo Супер-модератор 33138 / 21432 / 8221 Регистрация: 22.10.2011 Сообщений: 36,753 Записей в блоге: 9
	14.10.2015, 21:34
	Нормально все работает, если в 4-ой строке поменять знак с "<" на ">=" 0

@Макар Ивашко 0 / 0 / 0 Регистрация: 14.10.2015 Сообщений: 2
	14.10.2015, 21:57 [ТС]
	тоже runtime error 0

Опции темы

Найти сумму цифр числа

Решение