Из предложенных ниже операторов составить универсальный алгоритм "Нахождения суммы цифр числа" var x,k:integer; begin writeln('ввести число'); readln(x); k:=0; while x<>0 do begin k:=k+x mod 10; x:=x div 10; end; writeln('сумма цифр=',k); end. :