Определить, встречается ли в ведённом числе
хотя бы одна цифра неравная трём (написать программу на паскале)

var a,z:integer;

q:boolean;

begin

read(a);

while a>0 do begin

z:=a mod 10;

if (z>3)and(z<8) then q:=true;

a:=a div 10;

end;

writeln(q);

end.

Объяснение:

Если одна цифра больше 3, но меньше 8

надеюсь это то, что вы имели ввиду.