Илья 27 ноября 2019 в 12:38
Определить, встречается ли в введенном числе хотя бы одна цифра больше 3, но меньше 8
Определить, встречается ли в введенном числе хотя бы одна цифра больше 3, но меньше 8
Var a,z:integer;
q:boolean;
begin
read(a);
while agt;0 do begin
z:=a mod 10;
if (zgt;3)and(zlt;8) then q:=true;
a:=a div 10;
end;
writeln(q);
end.
q:boolean;
begin
read(a);
while agt;0 do begin
z:=a mod 10;
if (zgt;3)and(zlt;8) then q:=true;
a:=a div 10;
end;
writeln(q);
end.
Компьютеры и вычисления
224
0
Для комментирования необходимо зарегистрироваться на сайте