Ответы и объяснения

2014-03-20T10:43:52+00:00
Var a,b:integer;
begin
write('Введите число ');
readln(a);
write('Введите цифру ');
readln(b);
if (a mod 10 <> b) and (a div 100 <> b) and ((a mod 100) div 10 <> b) then writeln('Цифры нету')
else writeln('Цифра есть');
end.
2014-03-20T10:44:10+00:00
Пишу на QBasic
CLS
INPUT A
INPUT X
Q= A MOD 10
W=A DIV 100
E=((A MOD 100)-Q)/10
IF Q=X OR W=X OR E=X THEN
PRINT "Входит"
ELSE
PRINT "Не входит"
END IF