Question

даны три действительных числа x y z определить какое из них принадлежит интервалу 1,5
Запишите программу

Answer 1

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;