Из заданного числа вычисление сумму его цифр

@msh666 · Регистрация: 12.11.2012

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

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

Написать нужно с использованием процедуры или функции.

@CodeR · 29.11.2012, 13:19

Pascal

Var n,k:integer;
Function F(n:integer):integer;
Var s:integer;
Begin
    s:=0;
    While n>0 do
    Begin
      s:=s+n mod 10;
      n:=n div 10;
    End;
    F:=s;
End;
Begin
    write('Введите число: ');readln(n);
    k:=0;
    While n>0 do
    Begin
      n:=n-F(n);
      inc(k);
    End;
    writeln('Сумма цифр будет = 0 через ',k,' действий');
    readln;
End.

@msh666 0 / 0 / 2 Регистрация: 12.11.2012 Сообщений: 61
		1
	Из заданного числа вычисление сумму его цифр 28.11.2012, 17:45. Показов 1476. Ответов 1 Метки нет (Все метки) Из заданного числа вычли сумму его цифр. Из результата вновь вычли сумму его цифр и т.д. Через сколько таких действий получится нуль? Написать нужно с использованием процедуры или функции. 0

	29.11.2012, 13:19

Из заданного числа вычисление сумму его цифр

Решение