Задание №3Дано двузначное число. Определить: а) входят ли в негоцифры 4 или 7; б) входят ли в него цифры 3, 6 или 9

pascal

a)

var x: integer;

begin

Write('Введите двузначное число: '); ReadLn(x);

if (x div 10 = 4) or (x div 10 = 7) or

(x mod 10 = 4) or (x mod 10 = 7) then

WriteLn('Входят') else WriteLn('Не входят');

end.

б)

var x: integer;

begin

Write('Введите двузначное число: '); ReadLn(x);

if (x div 10 = 3) or (x div 10 = 6) or (x div 10 = 9) or

(x mod 10 = 3) or (x mod 10 = 6) or (x mod 10 = 9) then

WriteLn('Входят') else WriteLn('Не входят');

end.