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

Question

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

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.

Comments

Спасибо)))