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

Question

Вопрос:

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

Фотография

Ответ ассистента

Accepted Answer

В данной программе допущены ошибки в следующих строках: * **Строка 7**: `y := x div 10;` — эта команда отбрасывает последнюю цифру числа (целочисленное деление), а нам нужно выделить именно последнюю цифру. Правильно будет использовать операцию взятия остатка от деления: `y := x mod 10;`. * **Строка 8**: `if y mod 2 <> 0 then` — здесь проверяется условие, является ли цифра **нечётной** (остаток не равен 0). А по заданию нужно найти сумму **чётных** цифр. Условие должно быть: `if y mod 2 = 0 then`. Таким образом, программа должна выглядеть так: ```pascal 7. y := x mod 10; 8. if y mod 2 = 0 then ```

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

Ответ ассистента

Другие решения