Помогите, пожалуйста! Нужно написать программу на Pascal: дано пятизначное число, найти сумму всех его ЧЕТНЫХ цифр.
Помогите, пожалуйста! Нужно написать программу на Pascal: дано пятизначное число, найти сумму всех его ЧЕТНЫХ цифр.
Гость
Ответ(ы) на вопрос:
ГостьВесь код писать не буду. Напишу ток ф-ю нахождения.
while ( a != 0) begin // Ввел ты свое число, допустим - а.
c = a div 10; // Делим его на 10, т.е берем его последнюю цифру
d = d+c; // в эту переменную накапливаем сумму цифр
end // конец цикла
Не нашли ответ?
Похожие вопросы