Question

Ну очень прошу помочь, чисто по-человечески. Информатика для меня - сущий ад.

Вводится целое положительное число а<=109. Найдите сумму цифр введённого числа. Соберите программу путём выбора правильных команд из предложенного набора:

Answer 1

Ответ:

var a,b,s:integer;

begin

   readln(a);

   s:=0;

   while a>0 do

   begin

   b:=a mod 10;

   a:=a div 10;

   s:=s+b;

   end;

 writeln ('s=',s);

end.

Объяснение: