Помогите пожалуйста,СРОЧНО!11! Написать программу в паскале,которая запрашивает число и...

Question

Помогите пожалуйста,СРОЧНО!11! Написать программу в паскале,которая запрашивает число и выводит на экран сумму его цифр,использовать цикл while.

Answer 1

var

   a, s: integer;

   

begin

   writeln('введите число ');

   readln(a);

   while a > 0 do begin

       s += a mod 10;

       a := a div 10;

   end;

   writeln('Сумма цифр равна ', s);

end.