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

Question

Информатика

Мартина

10 июля, 01:19

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

+3

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