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ă: