Question

ПОМОГИТЕ ПОЖАЛУЙСТА!!!
решить через паскаль!!!
var a,b,x,s,p: integer;
begin writeln(' Ввести х');
readln(x);
ТУТ НУЖНО ЧТО ТО НАПИСАТЬ ;
writeln(' Сумма цифр=' ‚S);

Answer 1

var

 a, b, x, s, p: integer;

begin

 writeln(' Ввести х');

 readln(x);

 s := 0;

 x := Abs(x); { защита от ввода отрицательных }

 while x > 0 do

 begin

   s := s + x mod 10;

   x := x div 10

 end;

 writeln(' Сумма цифр=', s);

end.