, сделать в виде таблицы истинности
F = X И НЕ (Y или Z)
F = X И (Y или Z)

program chislo;

var x: integer;

          z,y : real;

begin

readln(x);

y: =5.5;

z: = x-y;

writeln(z);

end.

при запуске программы вводите эти значения и тестируете.

запихнуть тепловоз и пассажирский вогон

дать грузовому проехать.

выехать из тупичка

грузовой возвращается до тупичка

грузовой тепловоз задом запихивает оставшиеся 2 вагона пассажирских в тупичек

грузовой уезжает

пассажирский прицепляет 2 вагона и уезжает

алфавит состоит из 8 символов, следовательно, каждый символ кодируется 3 битами информации. в 1 байте 8 бит, значит, каждый байт содержит 2 символа при таком способе кодировки. за 1 секунду по каналу связи передается 1024 бита, из них - (1024/8)*2 = 256 бит сообщения. отсюда следует, что скорость передачи сообщения составляет 256 бит/сек (бит в секунду).

var age,exper,max_age,work_age: integer;

begin

  max_age: =42;

  work_age: =20;

  read(age,exper);

  if (age< = max_age) and (exper> =20) then writeln('da')

  else writeln ('net')

end.