Ввести трёхзначное число, вывести сумму его цифр (Pascal).

Конечно! В языке Pascal задача «ввести трёхзначное число и вывести сумму его цифр» решается достаточно просто, используя целочисленное деление и остаток от деления. Вот подробный пример с объяснением:

pascal
program SumOfDigits;
uses crt;
var
  num, sum, hundreds, tens, units: integer;
begin
  clrscr;
  writeln('Введите трёхзначное число:');
  readln(num);

  { Проверяем, что число действительно трёхзначное }
  if (num < 100) or (num > 999) then
  begin
    writeln('Ошибка: введено не трёхзначное число.');
    exit;
  end;

  { Разбиваем число на цифры }
  hundreds := num div 100;      { сотни }
  tens := (num div 10) mod 10;  { десятки }
  units := num mod 10;          { единицы }

  { Считаем сумму цифр }
  sum := hundreds + tens + units;

  writeln('Сумма цифр числа ', num, ' равна ', sum);
  readln;
end.

Пояснение:

1. num div 100 — целочисленное деление на 100, получаем первую цифру (сотни).

2. (num div 10) mod 10 — делим на 10, чтобы отбросить последнюю цифру, затем берём остаток от деления на 10, получаем десятки.

3. num mod 10 — остаток от деления на 10, последняя цифра (единицы).

4. Суммируем три цифры и выводим результат.

Пример работы программы:

• Ввод: 374

• Вывод: Сумма цифр числа 374 равна 14

Если хочешь, могу показать ещё более короткий вариант без отдельных переменных для цифр.