Program Logice;
var x, y, z:boolean;
begin
x:=false; y:=false;
writeln ('x=', x,  '  y=', y);
z:=x and y; writeln ('x and y = ', z);
writeln;
x:=true; y:=false;
writeln ('x=', x,  ' y=', y);
z:=x and y; writeln ('x and y = ', z);
writeln;
x:=true; y:=true;
writeln ('x=', x,  '  y=', y);
z:=x and y; writeln ('x and y = ', z);
writeln;
x:=false; y:=true;
writeln ('x=', x,  '  y=', y);
z:=x and y; writeln ('x and y = ', z);
writeln;
read;
end.
				
anonim_4396 întreabă:
anonim_4396 întreabă: