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

17.03.2017
Без рубрики

Запишите команду присваивания, в Запишите команду присваивания, в результате выполнения которой логическая переменная 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 thenWriteln (t,’ = TRUE’)elseWriteln (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) thenWriteln (t,’ = TRUE’)elseWriteln (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’)ElseWriteln (t,’ = FALSE’)

    End.