16 lines
348 B
ObjectPascal
16 lines
348 B
ObjectPascal
|
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> and, or <20> not
|
|||
|
|
var
|
|||
|
|
b: boolean;
|
|||
|
|
x: integer;
|
|||
|
|
begin
|
|||
|
|
write('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> x (<28><> 1 <20><> 9): ');
|
|||
|
|
readln(x);
|
|||
|
|
b := x=5;
|
|||
|
|
writeln('x=5? ',b);
|
|||
|
|
b := (x>=3) and (x<=5);
|
|||
|
|
writeln('x=3,4 <20><><EFBFBD> 5? ',b);
|
|||
|
|
b := (x=3) or (x=4) or (x=5);
|
|||
|
|
writeln('x=3,4 <20><><EFBFBD> 5? ',b);
|
|||
|
|
b := not Odd(x);
|
|||
|
|
writeln('x - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>? ',b);
|
|||
|
|
end.
|