fork download
copy 
  1. program LogicFunction;
  2. var
  3.   X1, X2, X3, X4, Y: integer;
  4. begin
  5.   writeln('Введіть X1 (0 або 1): '); readln(X1);
  6.   writeln('Введіть X2 (0 або 1): '); readln(X2);
  7.   writeln('Введіть X3 (0 або 1): '); readln(X3);
  8.   writeln('Введіть X4 (0 або 1): '); readln(X4);
  9.  
  10.   Y := (X1 * (1 - X4)) or (X2 * (1 - X3));
  11.  
  12.   writeln('Результат Y = ', Y);
  13. end.
  14.  
  15.  
Success #stdin #stdout 0s 5324KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Введіть X1 (0 або 1): 
Введіть X2 (0 або 1): 
Введіть X3 (0 або 1): 
Введіть X4 (0 або 1): 
Результат Y = 0
https://ideone.com/EbHnt0
language:
Pascal (fpc 3.0.4)
created:
2 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!