Определить, встречается ли в ведённом числе хотя бы одна цифра неравная трём (написать программу на паскале)
Ответ:
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;</p>
a:=a div 10;
end;
writeln(q);
end.
Объяснение:
Если одна цифра больше 3, но меньше 8
надеюсь это то, что вы имели ввиду.
это не много не то что нужно