Question

Дано трехзначные и четырёхзначные числа. Верно ли что сотни в обоих нечетные цифры

Answer 1

var a,b: integer;

begin

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

readln(a);

write('Введите четырехзначное число: ');

readln(b);

if ((a div 100) mod 2<>0) and (((b div 100) mod 10) mod 2<>0)

then write('условие верно') else write('условие не верно');

end.