Question

Задача 2.Сумма цифр.Вводтся целое пложительное число a меньше или равно 109.Найдите сумму цифр введённого числа .
1)Соберите программу путем выбор а правильных команд из представленного выше набора.
Текст программы:
............................................?
Всего команд в программе:.....................?
2)Составьте тест для проверки правильности решения задачи.
таблица в приложение
Пожалуста сделайте прошу вас помогите!!даю 25 б

Answer 1

var a,b,s:integer;
begin
Readln(a);
while a>0 do
begin
b:=a mod 10;
s:=s+b;
a:= a div 10;
end;
writeln ('s = ', s);
end.

Примеры:
109
s = 10

11
s = 2

67
s = 13

46
s = 10

21
s = 3