Дано трехзначное число. Найти сумму цифр числа. (Написать программу на языке Паскаль)

Для нахождения суммы цифр трехзначного числа на языке Паскаль, нужно извлечь каждую цифру числа и сложить их. Рассмотрим, как это можно сделать пошагово.

Алгоритм:

1. Для начала получаем трехзначное число.

2. Разделяем число на сотни, десятки и единицы.

3. Складываем эти цифры.

Пример программы на Паскале:

pascal
Копировать
program SumOfDigits;
var
  num, sum, hundreds, tens, ones: integer;
begin
  writeln('Введите трехзначное число:');
  readln(num);
  
  hundreds := num div 100;        // Извлекаем цифру сотен
  tens := (num div 10) mod 10;    // Извлекаем цифру десятков
  ones := num mod 10;             // Извлекаем цифру единиц
  
  sum := hundreds + tens + ones;  // Суммируем все цифры
  writeln('Сумма цифр числа: ', sum);
end.

Пояснение:

• Число делится на 100, чтобы получить первую цифру (сотни).

• Затем делится на 10 и остаток от деления на 10 дает вторую цифру (десятки).

• Для последней цифры (единиц) просто используем остаток от деления на 10.

• Все цифры складываются, и выводится результат.

Таким образом, программа находит сумму цифр трехзначного числа.