Как вычислить сумму цифр числа в языке программирования Паскаль?

Информатика 10 класс Числа и арифметические операции Сумма цифр Паскаль программирование алгоритмы информатика Новый

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

1. Определите переменные:
   • Переменная для хранения исходного числа.
   • Переменная для хранения суммы цифр.
   • Переменная для временного хранения текущей цифры.
2. Запросите у пользователя ввод числа:
   • Используйте команду ReadLn для считывания числа с клавиатуры.
3. Инициализируйте сумму цифр:
   • Установите переменную суммы в 0.
4. Цикл для извлечения и суммирования цифр:
   • Пока число больше 0, выполняйте следующие действия:
   • Извлеките последнюю цифру числа, используя операцию деления по модулю 10.
   • Добавьте эту цифру к переменной суммы.
   • Удалите последнюю цифру из числа, используя целочисленное деление на 10.
5. Выведите результат:
   • Используйте команду WriteLn для вывода суммы цифр на экран.

Теперь давайте рассмотрим пример кода на Паскале, который реализует описанный алгоритм:

program SumOfDigits;
var
    number, sum, digit: Integer;
begin
    sum := 0; // Инициализация суммы
    Write('Введите число: ');
    ReadLn(number); // Ввод числа

    while number > 0 do
    begin
        digit := number mod 10; // Извлечение последней цифры
        sum := sum + digit; // Добавление цифры к сумме
        number := number div 10; // Удаление последней цифры
    end;

    WriteLn('Сумма цифр равна: ', sum); // Вывод результата
end.

Таким образом, программа запрашивает у пользователя число, вычисляет сумму его цифр и выводит результат. Обратите внимание, что мы используем операции деления по модулю и целочисленное деление для работы с цифрами числа.