Вывести сумму цифр числа введенного с клавиатуры

Обновлено: 24.01.2025

Программа "Сумма цифр трёхзначного числа"

Задание:
Введите трёхзначное число. Найдите сумму цифр. Выведите результат на экран.

Program SummaTsifr1;
Var X, Y1, Y2, Y3, Summa : Integer;
begin
writeln('Программа вычисления суммы цифр');
write('Введите трёхзначное число X ');
readln(X);
Y1 := X div 100;
Y2 := (X - Y1 * 100) div 10;
Y3 := X - Y1 * 100 - Y2 * 10;
Summa := Y1 + Y2 + Y3;
writeln('Сумма цифр ', Y1:3, Y2:3, Y3:3, ' = ', Summa: 3)
end.

Замечание:
В процедуре вывода writeln используется форматированный вывод переменной. Например, Y1:3 обозначает, что для вывода значения переменной Y1 будут использоваться три позиции, т.е. в случае однозначного числа, перед ним будет добавлено два пробела, в случае двухзначного числа - добавлен один пробел. При этом если число будет содержать 4 или больше цифр, то оно будет выведено полностью.

Программа "Сумма цифр пятизначного числа"

Задание:
Введите пятизначное число. Найдите сумму цифр. Выведите результат на экран.

Program SummaTsifr2;
Var X, Y1, Y2, Y3, Y4, Y5, Summa : Integer;
begin
writeln('Программа вычисления суммы цифр ');
write('Введите пятизначное число X ');
readln(X);
Y1 := X div 10000;
Y2 := (X - Y1 * 10000) div 1000;
Y3 := (X - Y1 * 10000 - Y2 * 1000) div 100;
Y4 := (X - Y1 * 10000 - Y2 * 1000 - Y3 * 100) div 10;
Y5 := X - Y1 * 10000 - Y2 * 1000 - Y3 * 100 - Y4 * 10;
Summa := Y1 + Y2 + Y3 + Y4 + Y5;
writeln('Сумма цифр ', Summa)
end.

Тема "Использование цикла for". Программа "Сумма цифр числа"

Задание:
Введите число. Найдите сумму цифр. Для решения задачи используйте цикл for и функции работы со строками. Выведите результат на экран.

Program SumNumbers1;
Var
Y : Array[1..20] of Byte; < Массив для сохранения цифр исходного числа >
Xs : String;
Xr, Summa : Real;
J, N, Err : Integer;
begin
writeln('Программа вычисления суммы цифр ');
write('Введите число X (не более 20 цифр)');
readln(Xr);
Str(Xr, Xs); < Преобразовать число в строку >
N := Length(Xs); < Вычислить длину строки >
for J := 1 to N do Val(Xs[J], Y[J], Err); < Преобразовать каждый символ строки к числу и записать в массив >
Summa := 0;
for J := 1 to N do Summa := Summa + Y[J];
writeln('Сумма цифр ', Summa)
end.

Замечание:
procedure Str(i: integer; var s: string); Преобразует целое значение i к строковому представлению и записывает результат в s
procedure Val(s: string; var value: byte; var err: integer); Преобразует строковое представление s целого числа к числовому значению и записывает его в переменную value. Если преобразование успешно, то err=0, иначе err>0
function Length(s: string): integer; Возвращает длину строки

Тема "Использование цикла for". Вариант программы "Сумма цифр числа" без использования массива

Program SumNumbers2;
Var
Y : Byte;
Xs : String;
Xr, Summa : Real;
J, N, Err : Integer;
begin
writeln('Программа вычисления суммы цифр ');
write('Введите число X ');
readln(Xr);
Str(Xr, Xs); < Преобразовать число в строку >
N := Length(Xs); < Вычислить длину строки >
Summa := 0;
for J := 1 to N do begin
Val(Xs[J], Y, Err); < Преобразовать каждый символ строки к числу >
Summa := Summa + Y;
end;
writeln('Сумма цифр ', Summa)
end.

Задание:
Введите с клавиатуры целое число. Найдите сумму цифр.

Одной из часто используемых задач для начинающих изучать программирование является нахождение суммы и произведения цифр числа. Число может вводиться с клавиатуры или генерироваться случайное число. Задача формулируется так:

Дано число. Найти сумму и произведение его цифр.

Например, сумма цифр числа 253 равна 10-ти, так как 2 + 5 + 3 = 10. Произведение цифр числа 253 равно 30-ти, так как 2 * 5 * 3 = 30.

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

И здесь на помощь приходят операции деления нацело и нахождения остатка. Если число разделить нацело на 10, произойдет "потеря" последней цифры числа. Например, 253 ÷ 10 = 25 (остаток 3). С другой стороны, эта потерянная цифра есть остаток от деления. Получив эту цифру, мы можем добавить ее к сумме цифр и умножить на нее произведение цифр числа.

Пусть n – само число, suma – сумма его цифр, а mult – произведение. Тогда алгоритм нахождения суммы и произведения цифр можно словесно описать так:

Переменной suma присвоить ноль.
Переменной mult присвоить единицу. Присваивать 0 нельзя, так как при умножении на ноль результат будет нулевым.
Пока значение переменной n больше нуля повторять следующие действия:
1. Найти остаток от деления значения n на 10, то есть извлечь последнюю цифру числа.
2. Добавить извлеченную цифру к сумме и увеличить на эту цифру произведение.
3. Избавиться от последнего разряда числа n путем деления нацело на 10.
В языке Python операция нахождения остатка от деления обозначается знаком процента - % . Деление нацело - двумя слэшами - // .

Код программы на языке Python

Изменение значений переменных можно записать в сокращенном виде:

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

Если число отрицательное, это не влияет на сумму его цифр. В таком случае достаточно будет использовать встроенную в Python функции abc(), которая возвращает абсолютное значение переданного ей аргумента. Она превратит отрицательное число в положительное, и цикл while с его условием n > 0 будет работать как и прежде.

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

Программа, обрабатывающая все целые числа, может начинаться так:

Заметим, если в самом числе встречается цифра 0 (например, 503), то произведение всех цифр будет равно нулю. Усложним задачу:

Вводится натуральное число. Найти сумму и произведение цифр, из которых состоит это число. При этом если в числе встречается цифра 0, то ее не надо учитывать при нахождении произведения.

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

Обратим внимание, что заголовок условного оператора if digit != 0: в Python можно сократить до просто if digit: . Потому что 0 - это false. Все остальные числа считаются истиной.

Приведенный выше математический алгоритм нахождения суммы и произведения цифр числа можно назвать классическим, или универсальным. Подобным способом задачу можно решить на всех императивных языках, независимо от богатства их инструментария. Однако средства языка программирования могут позволить решить задачу другим, зачастую более простым, путем. Например, в Python можно не преобразовывать введенную строку с числу, а извлекать из нее отдельные символы, которые преобразовывать к целочисленному типу int:

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

Строковый метод isdigit() проверяет, состоит ли строка только из цифр. В нашем случае роль строки играет одиночный, извлеченный на текущей итерации цикла, символ.

Глубокое знание языка Python позволяет решить задачу более экзотическими способами:

Встроенная функция list() преобразует переданную ей строку в список. Так если заданная строка - "234" , то получится список ['2', '3', '4'] .

Выражение [int(digit) for digit in n] представляет собой генератор списка. В данном случае будет получен список чисел: [2, 3, 4] .

Встроенная функция sum() считает сумму элементов переданного ей аргумента.

Функция reduce() модуля functools() принимает два аргумента - лямбда-выражение и в данном случае список. Здесь в переменной x происходит накопление произведения, а y принимает каждое следующее значение списка.

Читайте также: