Сумма цифр числа

@Vanodevil · Регистрация: 10.11.2009

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

Условие: Для числа N подсчитывается сумма его цифр. Если результат превышает 9, то для результата снова подсчитывается сумма цифр и так далее, пока результат не станет меньше 10. Выполнить расчет для N.
Формат входных данных
Во входном файле записано целое положительное число N, количество цифр в записи которого не превосходит 10000.

Вот точный вариант:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var a,x,i:integer;
 s:longint;
 
begin
 {стандартное input/output}
 readln( a ); x:=a;
 s:=0;
 while ( x<>0 ) do 
 begin
   s := s + (x mod 10);
   x := x div 10;
 end;
writeln(s);
end.

Как реализовать проверку s<=9 и при s>10 складывать цифры?

@Vanodevil · 23.11.2009, 15:29 **[ТС]**

и ещё, ответ должен выводится тоже в текстовый файл. Только при этом твой код заставляет глючить даже мой core 2 duo

@unick12345 · 23.11.2009, 15:54

у меня намного слабее, но почемуто работает. попробую проверить. или скинь мне что ты считываешь и откуда чтобы видеть точно где ошибка

Новые блоги и статьи Все статьи Все блоги /
SUNO Ai - Река Без Дна zorxor 31.07.2026 Автор стихотворения - астрофизик Марина Катыс Ссылка на сгенерированную музыкальную композицию: https:/ / suno. com/ song/ 6f6e5464-b290-4650-be6c-44c85f8d8013 Я говорю, что Время- как вода течет. . .	Из невошедшего на форум (диалог с ИИ-гугла) zorxor 29.07.2026 А вот, что интересно, сказал мне ИИ-гугла: Этот текст — эмоциональный пост пользователя под ником zorxor на интернет-форуме (вероятно, посвященном мистике, непознанному или альтернативной науке). . . .	Был праздник вчера, а я и не знал. kumehtar 28.07.2026 27. 07. 2026г. Intel Core 2 Duo исполнилось 20 лет Новости компьютерного мира и их обсуждение (4) Салют, шампанское, овации! :drink:	Нейтральные знания, чистый код - бла-бла-бла-бла, на самом деле кликбейт и самореклама, плагиат, и вот почему Hrethgir 27.07.2026 То-есть отклонение такой публикации говорит само за себя, и пусть только возьмут на вооружение после отклонения публикации - это будет чистейшим актом плагиата. Отклонял Хабр. Дословно, отклонённая. . .
тв 16 бой ии anaschu 27.07.2026 Великий Перелом ИИ: Как уравнения ОДУ Radau дожали цензурные фильтры Алисы Фиксируем в мемофонде Теории Всего беспрецедентный факт в истории ИИ-зондирования. В затяжном многораундовом. . .	мв 15. непроверенное, возможно, глюк anaschu 27.07.2026 НАУЧНО-АНАЛИТИЧЕСКИЙ ОТЧЕТ. РАЗДЕЛ 1. 1: «НАУКА» (РАСШИРЕННАЯ СТЕХИОМЕТРИЧЕСКАЯ И ГЕНЕТИЧЕСКАЯ ВЕРСИЯ)Тема: Теоретическое обоснование инвариантности 19-мерного тензорного ядра непрерывных ОДУ и. . .	Очистка реквизитов и табличных частей документа при копировании (вариант 2) Maks 26.07.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРаботу", разработанного в КА2. Задача: Заменить алгоритм запрета копирования документов для сотрудников с ролью "Стажер",. . .	Доктрина интенционального знания - Доктрина для портала "Срез". Hrethgir 25.07.2026 Может найдётся кто захочет оценить доктрину. . . Написания правил участия для меня роскошь, требующая лимита времени, поэтому все сообщения не прошедшие модерацию будут видны только участникам портала,. . .

@Vanodevil 0 / 0 / 0 Регистрация: 10.11.2009 Сообщений: 29
	23.11.2009, 15:29 [ТС]
	и ещё, ответ должен выводится тоже в текстовый файл. Только при этом твой код заставляет глючить даже мой core 2 duo 0

@unick12345 1866 / 1186 / 192 Регистрация: 27.03.2009 Сообщений: 4,603
	23.11.2009, 15:54
	у меня намного слабее, но почемуто работает. попробую проверить. или скинь мне что ты считываешь и откуда чтобы видеть точно где ошибка 0