Дано трехзначное число. Найдите сумму его цифр.
Входные данные
Вводится целое положительное число. Гарантируется, что оно соответствует условию задачи.
Выходные данные
Выведите ответ на задачу.

(Примеры:входные данные-179,выходные данные-17) Решить в ПАСКАЛЕ

Для решения задачи на языке Pascal, где требуется найти сумму цифр трехзначного числа, можно использовать следующий алгоритм:

1. Вводим целое положительное число.
2. Разделяем число на его цифры.
3. Складываем эти цифры.
4. Выводим результат.

Давайте разберем это более подробно. Пусть дано число, например, 179. Мы можем разложить его на цифры следующим образом:

• Первая цифра (сотни) = 179 div 100 = 1.
• Вторая цифра (десятки) = (179 div 10) mod 10 = 7.
• Третья цифра (единицы) = 179 mod 10 = 9.

Теперь нам нужно просто сложить эти цифры: 1 + 7 + 9 = 17.

Программа на языке Pascal

pascal
program SumDigits;
var
  num, sum: integer;
begin
  // Вводим число
  readln(num);
  // Находим сумму цифр
  sum := (num div 100) + (num div 10 mod 10) + (num mod 10);
  // Выводим результат
  writeln(sum);
end.

Объяснение программы:

1. Ввод числа: мы читаем число с помощью readln(num).
2. Разделение числа на цифры:
   • (num div 100) извлекает первую цифру (сотни).
   • (num div 10 mod 10) извлекает вторую цифру (десятки).
   • (num mod 10) извлекает третью цифру (единицы).
3. Сложение цифр: складываем эти три цифры и сохраняем результат в переменной sum.
4. Вывод результата: выводим результат с помощью writeln(sum).

Пример:

Для числа 179 программа выведет 17, как указано в примере.

Этот подход работает для любых трехзначных чисел, так как мы гарантированно знаем, что число состоит из трех цифр.