Вводится любые числа и находится их сумма его цифр - Turbo Pascal

Формулировка задачи:

в программе вводится любые числа и находится их сумма его цифр

Решение задачи: «Вводится любые числа и находится их сумма его цифр»

Листинг программы

var
  a, s : integer;
begin
  s := 0;
  write('введтите любое число: ');
  readln(a);
  while a <> 0 do
  begin
    s := s + (a mod 10);
    a := a div 10
  end;
  writeln('сумма цифр: ', s);
  readln
end.

Объяснение кода листинга программы

В начале объявляются две переменные: a и s, которые будут использоваться для хранения введенного числа и суммы его цифр соответственно. Обе переменные инициализируются целочисленными значениями.
Затем выводится сообщение «введтите любое число: », чтобы пользователь мог ввести число.
С помощью функции readln() происходит чтение введенного пользователем числа в переменную a.
Затем начинается цикл while, который будет выполняться до тех пор, пока значение переменной a не станет равным нулю.
Внутри цикла происходит следующее:
- переменной s присваивается сумма цифр числа a. Для этого используется оператор mod (остаток от деления), который позволяет получить последнюю цифру числа. Затем полученное значение добавляется к сумме s.
- значение переменной a делится на 10 с помощью оператора div, чтобы удалить последнюю цифру и перейти к следующему разряду числа.
После выхода из цикла while выводится сообщение «сумма цифр: », в которое вставляется значение переменной s с помощью оператора writeln().
Наконец, с помощью функции readln() происходит чтение следующего ввода пользователя.