Пользователь вводит трехзначное число. Программа должна сложить цифры, из которых состоит это число. Например, если 349, программа должна вывести на экран 16, так как 3+4+9=16.
Программа на Паскале var a, s: integer; begin read(a); s := 0; while a > 0 do begin s := s + a mod 10; a := a div 10; end; writeln(s); end.