вычислить сумму цифр заданного целого положительного числа (Паскаль)

[prs58]

Здравствуйте. Помогите пожалуйста составить программу.

Нужно: вычислить сумму цифр заданного целого положительного числа.

Скриншот залил. Нужно из данной программы которая на скриншоте, составить программу с помощью оператора a mod 10

______________
Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В последующем, темы с подобным названием будут закрываться или удаляться,
а автор такой темы будет получать штрафные баллы.
Учтите это на будущее.

Модератор.

[prs58]

Помогите пожалуйста.

[prs58]

Прошу,пожалуйста.

[Алек]

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.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

если бы хоть немножко разобрали материал, который Вам давали на уроке, то, думаю, что проблем с решением дом.задания у Вас не возникло.
вариант решения Вашей задачи может выглядет, например, так:

var A : integer; {исходное число}
     kS : integer; {переменная для накопления суммы}
begin
   ... тут ввод числа A
   kS := 0; {сначала сумма цифр равна нулю}
   while A<>0 do begin
     kS := kS + (A mod 10);
     A := A div 10;
   end;
   WriteLn('Сумма цифр числа равна ', kS);
....

p.s. данный алгоритм "портит" исходное число. в качестве дополнительного вопроса попробуйте ответить (себе) что нужно изменить в программе, чтобы исходное число не изменилось...
Представьте, что в конце нужно выдать сумма цифр равна XX для числа YYYY (вместо YYYY введённое пользователем число)

____________________
Добавлено
ну вот.. пока я писал сообщение, уже Алек привёл своё решение...
Доп.вопрос утратил смысл...

[prs58]

Спасибо большое.Я изучал в школе Паскаль, но как перешел в техникум все забыл т.к. программирование у нас отменили.Спасибо вам большое.