Var a,b,x,s:integer; begin write('a = '); readln(a); write('x = '); readln(x); b:=a; s:=0; while b>0 do begin s:=s+b mod 10; b:=b div 10; end; writeln('s = ',s); if s>x then writeln('Сумма цифр больше ',x) else writeln('Сумма цифр не больше ',x); end.
Пример: <span>a = 31854 x = 15 s = 21
Сумма цифр больше 15</span>