Cумма цифр целого числа К

@Most_Guard · Регистрация: 18.12.2010

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

помогите найти сумму цифр целого числа К, не используя оператор цикла

@lamed · 01.07.2011, 13:44

Pascal

{ найти сумму цифр целого числа К, не используя оператор цикла }
var
  n: integer;
function sum(n: integer): integer;
begin
  if n<10 then
    sum := n
  else
    sum := n mod 10 + sum(n div 10);
end;
 
begin
  readln(n);
  writeln('sum(',n,')=',sum(n));
  readln;
end.

@Most_Guard 6 / 5 / 2 Регистрация: 18.12.2010 Сообщений: 82
		1
	Cумма цифр целого числа К 01.07.2011, 09:39. Показов 1295. Ответов 1 Метки нет (Все метки) помогите найти сумму цифр целого числа К, не используя оператор цикла 0

	01.07.2011, 13:44

Опции темы

Cумма цифр целого числа К

Решение