Переменная х содержит трехзначное целое число. подсчитать сумму цифр этого числа

var a: array [1..10] of integer;

s,i,c,b: integer;

begin

  read(c,b,n);

  randomize;

  for i : = 1 to n do

        a[i]: = random(b) -c+1;

  for i: = 1 to n do

        if i mod 2 = 0 then s: =s+1;

  writeln(s);

end.

х = log₂ n;

х = log₂ 12 бит.

копируется, редактируется

program abc;

var x,a,b,c: integer;

begin

writeln('vvedite chislo');

readln(x);

a: =x div 100;

b: =x mod 100 div 10;

c: =x mod 10;

writeln(a+b+c);

end.