С клавиатуры вводится целое положительное число. Вычислить сумму нечётных цифр.(Pascal)

23 Ноя 2021 в 19:46
102 +1
0
Ответы
1

program SumOddDigits;

var
num, digit, sum: integer;

begin
sum := 0;

writeln′Enterapositiveinteger:′'Enter a positive integer: 'Enterapositiveinteger:;
readlnnumnumnum;

while num > 0 do
begin
digit := num mod 10;
if digit mod 2 <> 0 then
sum := sum + digit;
num := num div 10;
end;

writeln′Thesumofodddigitsis:′,sum'The sum of odd digits is: ', sumThesumofodddigitsis:,sum;

end.

17 Апр 2024 в 08:30
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир