Паскаль. Из заданного числа найти сумму его цифр

[Matlashov]

Всем привет.
Помогите задачу решить пжлста на Паскале с помощью подпрограммы

Из заданного числа найти сумму его цифр, из этого результата тоже найти сумму цифр и так далее пока в результате не будет одна цифра

[GenniY]

Один из вариантов: можно перевести изначальное число в string -> посимвольно считать -> переводить обратно и суммировать.

[Stilet]

Matlashov

Внизу этой страницы похожие темы. Читай их.

[Matlashov]

В одном числе и я могу

Например 18357345 1+8+3+5+7+3+4+5=36 затем 3+6=9 все
подпрограммой?

[Stilet]

В одном числе и я могу

Ну так в чем проблема то?

[MadReason]

процеда с проверкой на длину числа. и рекурсивное использование. в чем проблема то?

[Matlashov]

Да не врубаюсь че там посе procedure

[MadReason]

program Project2;

var n,p:integer;

procedure p1(num:integer; var rez:integer);
  begin
    rez:=0;
    while num>9 do
      begin
        rez:=rez+num mod 10;
        num:=num div 10;
      end;
    rez:=rez+num;
  end;

begin
  n:=2312678;
  p:=n;
  while p>9 do
    begin
      p1(n,p);
      n:=p;
      writeln(p);
    end;
  readln;
end.

надеюсь разберешься. лекции хоть почитай.
рекурсивность сам доковыряешь если нужно))

[Matlashov]

Спасибо
Да читаю но чето не помогает