С клавиатуры задаётся трёхзначное число. Составить программу, которая определяет, есть ли среди цифр этого числа нечётные

Question

Информатика

Стелла

18 июля, 17:56

С клавиатуры задаётся трёхзначное число. Составить программу, которая определяет, есть ли среди цифр этого числа нечётные

+5

Ответы (1)

Знаете ответ на вопрос?

Купава · Answer 1

Var

A:integer;

Begin

Write ('Введите трёхзначное число: ') ; ReadLn (A) ;

if ((A div 100) mod 2 = 0) or (((A div 10) mod 10) mod 2 = 0) or (A mod 2 = 0) then WriteLn ('Есть')

else WriteLn ('Нет')

End.