Question

1). Ввоедите число 'y, с клавиатуры​ определите евляется ли число + или - 2).Ввод cDX, и пренодлежит ли x C и D?

Answer 1

program n1;

var num:integer;

begin

writeln('Input number => ');

readln(num);

if (num>0) and (num<>0) then  

writeln('+')

else

if (num<0) and (num<>0) then  

writeln('-');

end.

program n2;

var c,d,x:integer;

begin

write('Input x => ');

readln(x);

write('Input C=> ');

readln(c);

write('Input D => ');

readln(d);

if ((c<x) and (x<d)) or ((c>x) and (x>d)) then

writeln('yes')

else

writeln('no');

end.