Функцию для нахождения суммы цифр произвольного натурального числа

@schokker126 · Регистрация: 17.12.2015

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

Вводятся 3 натуральных числа. Найти сумму цифр каждого из них (создать функцию для нахождения суммы цифр произвольного натурального числа).

@JuriiMW · 18.12.2015, 06:34

Pascal

function SumDigits(N : Integer) : Integer := (N > 0 ? N mod 10 + SumDigits(N div 10) : 0);
 
begin
  WriteLn('Введите три натуральных числа:');
  var a := ReadLnInteger('первое =');
  var b := ReadLnInteger('второе =');
  var c := ReadLnInteger('третье =');
  WriteLn('Сумма цифр ', a, ' = ', SumDigits(a));
  WriteLn('Сумма цифр ', b, ' = ', SumDigits(b));
  WriteLn('Сумма цифр ', c, ' = ', SumDigits(c));
end.

@schokker126 0 / 0 / 0 Регистрация: 17.12.2015 Сообщений: 27
		1
	Функцию для нахождения суммы цифр произвольного натурального числа 17.12.2015, 12:06. Показов 1633. Ответов 1 Метки нет (Все метки) Вводятся 3 натуральных числа. Найти сумму цифр каждого из них (создать функцию для нахождения суммы цифр произвольного натурального числа). 0

	18.12.2015, 06:34

Опции темы

Функцию для нахождения суммы цифр произвольного натурального числа

Решение