Запишите команду присваивания, в результате выполнения которой логическая переменная t получает значение true

---

---

Задание 125. Запишите команду присваивания, в результате выполнения которой логическая переменная t получает значение true, если выполняется указанное условие, и значение false в противном случае.

---

а) x - неотрицательное число.
t:=(x>=0)

Пример программы:
program z125_A;
var x: integer; t: boolean;
BEGIN
x := 1;
t := (x>=0);
writeln(t);
END.

б) Среди чисел x, y, z хотя бы два равны между собой.
t:= (x=y) or (x=z) or (y=z)

Пример программы:
program z125_B;
var x,y,z: integer; t: boolean;
BEGIN
x := 1;
y := 3;
z := 1;
t:= (x=y) or (y=z) or (z=x);
writeln(t);
END.
В окне вывода у нас будет true, так как x и z оба равны 1.

в) Уравнение ax^2 + bx + c = 0 не имеет корней.
t:=(sqr(b)-4*a*c)<0 где sqr(b)=b^2

Пример программы:
program z125_C;
var a, b, c: integer; t: boolean;
BEGIN
a := 3;
b := 5;
c := 2;
t := (sqr(b) - 4*a*c)<0;
writeln(t);
END.
В окне вывода у нас будет false, так как дискриминант равен единице, то есть будут корни, что противоречит условию.