Задать вопрос
20 августа, 21:13

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

+4
Ответы (1)
  1. 21 августа, 00:47
    0
    Может так:

    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

    end;

    end;

    end;

    readln;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Что нужно дописать в коде на паскале для того чтобы программа выдавала сразу все возможные варианты (их 8) var A, B, C:boolean; begin for ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Сделать так чтобы Writeln был заменен другим словом и повторялься не больше двух раз program choise; var N_M:integer; writeln (' введи номер месяца ') ; readln (N_M) ; case N_M of 1:writeln (' январь ') ; 2:writeln (' февраль ') ;
Ответы (1)
Выберите логическое выражение, принимающее значение True a) (True and True) and (False or False) b) Not (True and Not False) or False c) (True or False) or Not (True and True) d) Not (True or False) and True
Ответы (1)
Как сделать теперь без массива (паскале) ? var nm:array of integer; j, l:integer; begin nm: = new integer[3] (random (20), random (20), random (20)) ; writeln ('nm[0] = ', nm[0]) ; writeln ('nm[1] = ', nm[1]) ; writeln ('nm[2] = ', nm[2]) ;
Ответы (1)
Дано три цифры вывести все возможные трехзначные числа пишет ожидался оператор begin program: adf; begin var a, b, c : = in tege; begin writeln ('write') ; read (a, b, c) ; writeln (a, b) ; writeln (b, a) ; writeln (a, c) ; writeln (c, a) ;
Ответы (1)
Запиши программу в Паскале для вычисления площади прямоугольника со сторонами c и m. 1) begin writeln ('Введи длину и ширину прямоугольника c и m') ; readln (c, m) ; s:=c*m; writeln ('s=', s) ; readln; end.
Ответы (1)