Информатика

Ульяша

16 октября, 05:28

Что нужно дописать в коде на паскале для того чтобы программа выдавала сразу все возможные варианты (их 8)

var

A, B, C:boolean;

begin

for A:=false to true do begin

for B:=false to true do begin

for C:=false to true do begin

writeln ('1 zn'#9#9#9,'2 zn'#9#9#9,'A'#9,'B',#9,'C'#9) ;

writeln (' (A and B) and C'#9#9,'A and (B and C) '#9#9,'A=', A,' ','B=', B,' ','C=', C) ;

if ((A AND B) AND C = A AND (B AND C)) then

readln;

end;

end;

end;

end.