Что нужно дописать в коде на паскале для того чтобы - вопрос №3384305 от Rys2017 03.12.2020 07:27

Question

Информатика: Что нужно дописать в коде на паскале для того чтобы программа выдавала сразу все возможные варианты(их 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.

Rys2017 · Answer

Может так:varA,B,C:boolean;beginfor A:=false to true do beginfor B:=false to true do beginfor C:=false to true do beginwriteln ( 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)) thenend;end;end;readln;end....