1)доказать (путем перебора возможных значений), что для любых величин а, в, с типа boolean следующая пара логических выражений имеет одинаковые значения (эквивалентны): (a and b) and c и a and (b and c 2)найдите все трехзначные числа, которые можно представить разностью между квадратом числа, образованного первыми двумя цифрами и квадратом третьей цифры.

1. var   a, b, c, f: boolean;   i, j, k: integer; begin   for i : = 0 to 1 do       for j : = 0 to 1 do           for k : = 0 to 1 do           begin               a : = (i = 1); b : = (j = 1); c : = (k = 1);               f : = ((a and b) and c) = (a and (b and c));               writeln('a=', a, ', b=', b, ', c=', c, ', результат сравнения: ', f)           end end. результат выполнения программы: a=false, b=false, c=false, результат сравнения: true a=false, b=false, c=true, результат сравнения: true a=false, b=true, c=false, результат сравнения: true a=false, b=true, c=true, результат сравнения: true a=true, b=false, c=false, результат сравнения: true a=true, b=false, c=true, результат сравнения: true a=true, b=true, c=false, результат сравнения: true a=true, b=true, c=true, результат сравнения: true 2. var   a, b, c: integer; begin   for a : = 1 to 9 do       for b : = 0 to 9 do           for c : = 0 to 9 do               if sqr(10 * a + b) - sqr(c) = 100 * a + 10 * b + c then writeln(a, b, c) end. результат выполнения программы: 100 147

Держи пока что первую, сейчас вторую сделаю!  

Какое логическое выражение истинно, если х ϵ [-10, 10]? (x < 10) или (x > = -10) (x > = -10) и (x < = 10) {var       x: integer; begin       for x : = -10 to 10 do               writeln(x, ' ', (x > 10) and (x < -10), ' ', (x > 10) or (x < -10), ' ', (x < 10) or (x > = -10), ' ', (x > = -10) and (x < = 10)); end.} укажите правильный вариант записи условия "х - двузначное число": (x> =10) и (x< 100)

Массив: 1 , 2, 5, 8, 9, 3, 4, 0, 7, 6  j = 5 a[j]< a[j-1]  ⇒ a[5]< a[4]  ⇒ 3< 9  ⇒ true (истина)   ⇒ t = a[5] = 3; a[5] = a[4] = 9; a[4] = 3; j = j-1 = 5-1 = 4 массив: 1, 2, 5, 8, 3, 9, 4, 0, 7, 6  a[j]< a[j-1]  ⇒ a[4]< a[3]  ⇒ 3< 8 ⇒ true (истина)   ⇒ t = a[4] = 3; a[4] = a[3] = 8; a[3] = 3; j = j-1 = 4-1 = 3 массив: 1, 2, 5, 3, 8, 9, 4, 0, 7, 6  a[j]< a[j-1]  ⇒ a[3]< a[2]  ⇒ 3< 5 ⇒ true (истина)   ⇒ t = a[3] = 3; a[3] = a[2] = 5; a[2] = 3; j = j-1 = 3-1 = 2 массив: 1, 2, 3, 5, 8, 9, 4, 0, 7, 6  a[j]< a[j-1]  ⇒ a[2]< a[1]  ⇒ 3< 2 ⇒ false (ложь) ответ: j=2