n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

TestSamples/CompilationSamples/Boolean1.pas

16 строк348 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

// ���������� ���. ���������� ��������� � and, or � not
var 
  b: boolean;
  x: integer;
begin
  write('������� x (�� 1 �� 9): ');
  readln(x);
  b := x=5;
  writeln('x=5? ',b);
  b := (x>=3) and (x<=5);
  writeln('x=3,4 ��� 5? ',b);
  b := (x=3) or (x=4) or (x=5);
  writeln('x=3,4 ��� 5? ',b);
  b := not Odd(x);
  writeln('x - ������? ',b);
end.