Предмет: Информатика,
автор: yuliya123321
Запишите команду присваивания, в Запишите команду присваивания, в результате выполнения которой логическая переменная t получает значение TRUE, если выполняется указанное условия, и значение FALSE иначе: а) x-неотрицательное число б) среди чисел x, y, z хотя бы два равны между собой в) уравнение ax(во 2 степени)+bx+c=0 не имеет корней
Ответы
Автор ответа:
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.
а)
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.
Похожие вопросы
Предмет: Алгебра,
автор: vrrerr5gr
Предмет: Английский язык,
автор: madamxuzina201ozrvcy
Предмет: Литература,
автор: yrysbaevvasogdiana
Предмет: Физика,
автор: zara66
Предмет: Биология,
автор: kuji7