Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.