Решить по информатике. нам дано число, нужно найти сумму цифр. решить с цикла ,,пока,,

алг  Сумма  цифр

нач

вывод  sumDigits(12345)

кон

алг цел   sumDigits(цел  n0)

нач

цел  sum=0,   n

n:=n0

нц пока  n<>0

sum:=sum+mod(n,10)

n:=div(n,10)

кц

знач:=sum

кон

На паскале: 

var a,x:integer;
i,s:integer;
begin 
writeln('Введите целое число: ');
readln( a );
x:=a;  s:=0;
while ( x<>0 ) do   begin
    s := s + (x mod 10);    x := x div 10;
end;
writeln( 'Сумма цифр числа ',a,' = ', s );
end.