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;
Поделитесь своими знаниями, ответьте на вопрос:
Можете ответить ? ) желательно на все, но что знаете, пишите
номер 1
а)117
б) 1011011
номер 2
ответ 3
номер 3
ответ 21112
номер 4
ответ 2 и 10/11
номер 5 не видно