Дано шестизначное число . Найти сумму его цифр ( ПАСКАЛЬ ) СРОЧНО !!! ПЛИИИЗЗЗЗЗЗЗЗЗЗЗЗ!

Question

Дано шестизначное число . Найти сумму его цифр ( ПАСКАЛЬ )
СРОЧНО !!! ПЛИИИЗЗЗЗЗЗЗЗЗЗЗЗ!

Answer 1

Var
   A:longint;
   S:integer;
Begin
Write('Введите целое число: ');
ReadLn(A);
if A < 0 then A:=-A;
S:=0;
While A > 0 do
   Begin
   S:=S+A mod 10;
   A:=A div 10;
   End;
WriteLn('S = ',S)
End.


Пример работы программы:

Введите целое число: 123456
S = 21

Answer 2

Var sum:integer;
      n:longint;
begin
    readln(n);
    sum := 0;
    repeat 
        sum := sum + (n mod 10);
        n := n div 10;
    until n = 0;
    write(sum);
end.