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

Запишите команду присваивания, в
Запишите команду присваивания, в результате
выполнения которой логическая переменная t получает
значение TRUE, если выполняется указанное условия, и
значение FALSE иначе:
а) x-неотрицательное число
б) среди чисел x, y, z хотя бы два равны между собой
в) уравнение ax(во 2 степени)+bx+c=0 не имеет корней

  • Может так?..
    а)
    Program tt;
    var t,z,x,y:integer;
    begin 
    writeln (‘Введите x, z, y’);
    read (x,z,y);
    t:=z+x+y;
    if x>0 then
    Writeln (t,’ = TRUE’)
    else
    Writeln (t,’ = FALSE’)
    end.
    б)
    Program tt;
    var t,z,x,y:integer;
    begin 
    writeln (‘Введите x, z, y’);
    read (x,z,y);
    t:=z+x+y;
    if (x=y) or (y=z) or (x=z) then
    Writeln (t,’ = TRUE’)
    else
    Writeln (t,’ = FALSE’)
    end.
    в)
    Program tt;
    var  A,B,C,t: Real;
    begin      
    Writeln (‘Введите коэффициенты: A B C’);      
    Readln(A,B,C);     
    t := B * B — 4 * A * C;
    if t < 0 then 
    Writeln (t,’ = TRUE’)
    Else
    Writeln (t,’ = FALSE’)
    End.