Program work1;
uses crt;
var x,y,z: real;
begin
clrscr ;
writeln('введите число x');
readln(x);
writeln('введите число y');
readln(y);
writeln('введите число z');
readln(z);
if (x<=5) and (x>=1) then writeln ('x-принадлежит интервалу') else writeln ('x не принадлежит и интервалу');
if (y<=5) and (y>=1) then writeln ('y- принадлежит интервалу') else writeln ('y не принадлежит и интервалу');
if (z<=5) and (z>=1) then writeln ('z-принадлежит интервалу') else writeln ('z не принадлежит и интервалу');
readln;
использовать Робот
алг
нач
нц 5 раз
вправо
кц
вниз
закрасить
вправо
вниз
закрасить
вниз
влево
закрасить
влево
вверх
закрасить
вправо
нц 4 раз
вниз
закрасить
кц
нц 2 раз
вправо
вверх
закрасить
кц
нц 4 раза
влево
кц
закрасить
вправо
вниз
закрасить
кон