51

Помогите пожалуйста решить в паскале: Дано трехзначное число. Определить…

22 марта 2023

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

категория: информатика



39

Var a: integer; begin readln (a); if (a mod 10) mod 2=0) and (a div 100) mod 2=0) and (a div 10) mod 10) mod 2=0) then writeln ('четные') else writeln ('нечетные') end.

Знаете ответ?


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