Подсчет суммы цифр числа на Паскале

Здесь приведен пример простенькой программы на Паскале, которая позволяет найти сумму цифр числа. Надеемся все понимают разницу между числом и его цифрами. Здесь задача решается просто - число делят на 10 и выделяют значащие цифры разрядов числа. Полученные цифры суммируют. Задачку можно решать и по другому - преобразовать число в строку, а затем по одной цифре из строки брать и преобразовывать обратно в числа, а затем их суммировать.

Пример. Подсчет суммы цифр числа
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.