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.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
