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

Question

Информатика

Мартина

19 февраля, 03:57

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

+4

Ответы (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.