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

Question

Информатика

Зинаша

17 июля, 01:24

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

+1

Ответы (1)

Знаете ответ?

Наталья · Answer 1

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.