Нужно найти сумму цифр трехзначного числа и записать в паскале

var a,a12,a1,a2,a3,s: integer; begin readln(a); a1: =a div 100; a12: =a mod 100; a2: =a12 div 10; a3: =a12 mod 10; s: =a1+a2+a3; writeln(s); end.

a1-первое число трехзначного числа, a2-второе,a3-третье, a12-вторые два числа

var  a, s: integer; // целочисленный тип данныхbeginwriteln('введите число: ');   readln(a); // вводим число (можно больше трех знаков)  while a < > 0 do  // пока остались цифры в числе   begin      s : = s + (a mod 10); // отбираем последнюю цифру числа и прибавляем к сумме      a : = a div 10; // стираем последнюю цифру числа  end;   writeln('сумма цифр = ', s) // выводим результатend.

в алфавитах ориентироваться легко: смотрим сколько цифр используется такое будет и название

0,1,2,3 - 4 цифры система счисления называется четверичная

0,1,2,3,4,5   -  6 цифр система счисления называется шестеричная

0,1,2,3,4,5,6,7,8   -  9 цифр система счисления называется девятеричная

0,1,2,3,4,5,6,7,8 ,9,а,в  -  12 цифр система счисления называется двенадцатеричная (это если выписаны правильно все буквы и больше нет никаких. в случае, если есть ещё буквы c,d,e,f - система счисления будет называться шестнадцатеричная)

Const       handsfree = false; var       a: array[1..100] of integer;       i, n: integer; begin       {ввод массива}       if handsfree then               n : = random(20) + 5       else begin               write('n = ');               readln(n);       end;             writeln('данные массива: ');       for i : = 1 to n do       begin               if handsfree then begin                       a[i] : = random(100) - 50;                       write(a[i], ' ');               end               else readln(a[i]);       end;       writeln();             {изменение элементов}       writeln('вывод прямой: ');       for i : = 1 to n do               write(a[i], ' ');       writeln();                     {изменение элементов}       writeln('вывод обратный: ');       for i : = n downto 1 do               write(a[i], ' '); end.