Question

1. Определить, состоит
ли заданное двузначное число из нечётных цифр​?

Answer 1

program dvuznach_iz_nech;

var

x:integer;

begin

write('введите двузначное число》');

read(x);

if(x div 100<=0)and(x div 10 >0)and(x mod 10 mod 2=1)and(x div 10 mod 2=1)

then

write('введенное двузначное число состоит из нечётных цифр')

else

write('введенное двузначное число не состоит из нечётных цифр или вы ввели недвузначное число')

end.