Question

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

Answer 1

Var a,b,n:integer;
begin
writeln('n=');
readln(n);
a:=n mod 10;
 b:=n div 10;
if (a= 4) or (b=4) or (a=7) or (b=7) then writeln('yes')
else 
writeln('no');
readln;
end.

__________________________

var a,b,n:integer;
begin
writeln('n=');
readln(n);
a:=n mod 10;
 b:=n div 10;
if (a= 3) or (b=3) or (a=6) or (b=6) or (a=9) or (b=9)
 then writeln('yes')
else 
writeln('no');
readln;
end.