Умоляю. помогите пожалуйста очень очень нужно!!! срочноо!! ! програмирование ПАСКАЛЬ!!!

Question

Составьте программу без использования строковых переменных, которая разбивает число n на цифры и печатает их в столбик. Дополните программу для решения одной из следующих задач. Чему равна сумма его цифр?

user_3866176 · Accepted Answer

function pd(n: longint): integer; 
begin 
    if n < 10 then begin 
        writeln(n); 
        pd := n; 
    end 
    else begin 
        pd := n mod 10 + pd(n div 10); 
        writeln(n mod 10); 
    end; 
end; 
var 
    n, r: longint; 
begin 
    write('n? '); 
    readln(n); 
    r := pd(abs(n)); 
    write('сумма цифр: ', r); 
end.

kublen · Answer

program sumcifr; 
uses crt; 
var 
n: longint; 
s: integer; 
j:integer; 
begin 
clrscr; 
s:=0; j:=0; 
write('ввести число --> ');readln(n); 
while n>0 do begin j:=j+1; 
s:=s+n mod 10; 
n:=n div 10; 
end; 
writeln('число цифр числа = ',j); 
writeln('сумма цифр числа = ',s); 
readln; 
end.