Функция нахождения суммы

@ReaGed · Регистрация: 02.11.2013

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

Из заданного числа вычли сумму его цифр. Из результата вновь вычли сумму его цифр и т.д.
Сколько таких действий надо произвести, чтобы получить нуль? Оформить в виде функции нахождения суммы цифр числа.

@Puporev · 08.11.2013, 17:28

Pascal

function sum(n:integer):integer;
var m,s:integer;
begin
m:=n;
s:=0;
while m>0 do
 begin
  s:=s+m mod 10;
  m:=m div 10
 end;
sum:=s
end;
 
var n,k:integer;
begin
write('n>0 n=');
read(n);
k:=0;
while n>0 do
 begin
  n:=n-sum(n);
  k:=k+1
 end;
write('k=',k)
end.

@ReaGed 1 / 1 / 1 Регистрация: 02.11.2013 Сообщений: 49
		1
	Функция нахождения суммы 08.11.2013, 16:02. Показов 1936. Ответов 1 Метки нет (Все метки) Из заданного числа вычли сумму его цифр. Из результата вновь вычли сумму его цифр и т.д. Сколько таких действий надо произвести, чтобы получить нуль? Оформить в виде функции нахождения суммы цифр числа. 0

	08.11.2013, 17:28

Опции темы

Функция нахождения суммы

Решение