Помогите, пожалуйста, с паскалем!!!!!!!!!!!!!!!!!!!!!! Входные данные Вводится натуральное число x. Выходные данные Выведите сумму цифр числа x. Примеры входные данные 123 выходные данные 6 входные данные 102 выходные данные 3

Question

Помогите, пожалуйста, с паскалем!!!!!!!!!!!!!!!!!!!!!! Входные данные Вводится натуральное число x. Выходные данные Выведите сумму цифр числа x. Примеры входные данные 123 выходные данные 6 входные данные 102 выходные данные 3

Гость

Ответ(ы) на вопрос:

Accepted Answer

var x,s:integer; begin write('x='); readln(x); while x>0 do begin s:=s+(x mod 10); x:= x div 10; end; writeln('s=',s); end.