Сумма цифр через рекурсию

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

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

Найти сумму всех цифр введённого числа через рекурсию.

@JuriiMW · 15.02.2017, 08:51

Pascal

function cSum(n : Integer) : Integer := n = 0 ? 0 : cSum(n div 10) + Abs(n) mod 10;
 
begin
  WriteLn('Сумма цифр = ', cSum(ReadLnInteger('Введите целое число:')));
end.

@Aleshh · 15.02.2017, 20:12 **[ТС]**

Abs(n) - Что это такое?
Integer := n = 0 ? И это? Не понимаю. Можете объяснить?

@JuriiMW · 16.02.2017, 06:15

Заходим в PascalABC.NET
Нажимаем F1
Переходим: „Справочник по языку“ → „Системный модуль PABCSystem“ → «Математические подпрограммы»
Читаем про Abs.

Переходим: „Справочник по языку“ → „Выражения и операции“ → «Условная операция»
Читаем…

@Aleshh 0 / 0 / 0 Регистрация: 15.01.2017 Сообщений: 84
		1
	Сумма цифр через рекурсию 15.02.2017, 08:48. Показов 600. Ответов 3 Метки нет (Все метки) Найти сумму всех цифр введённого числа через рекурсию. 0

@Aleshh 0 / 0 / 0 Регистрация: 15.01.2017 Сообщений: 84
	15.02.2017, 20:12 [ТС]	3
	Abs(n) - Что это такое? Integer := n = 0 ? И это? Не понимаю. Можете объяснить? 0

@JuriiMW 5058 / 2632 / 2346 Регистрация: 10.12.2014 Сообщений: 9,995
	16.02.2017, 06:15	4
	Заходим в PascalABC.NET Нажимаем F1 Переходим: „Справочник по языку“ → „Системный модуль PABCSystem“ → «Математические подпрограммы» Читаем про Abs. Переходим: „Справочник по языку“ → „Выражения и операции“ → «Условная операция» Читаем… 0

Опции темы