Определить, встречается ли в введенном числе хотя бы одна цифра больше 3, но меньше 8

borronwolf borronwolf    1   28.07.2019 23:10    1

Ответы
slava31012 slava31012  03.10.2020 16:00
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика