Program Equation;
var a,b,c,x1,x2,d:real;
begin
write ('Введіть коефіцієнти:');
readln(a,b,c);
d:=b*b-4*a*c;
if d<0 then writeln ('Коренів немає') else
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
if x1<0 and x2<0 then writeln ('Корені відємні')else
if x1>0 and x2>0 then writeln ('Корені додатні')else
if x1>0 and x2<0 then writeln ('Корені мають різні знаки')else
if x1<0 and x2>0 then writeln ('Корені мають різні знаки')else
writeln ('Корені є: ',x1:6:2, x2:6:2);
end;
end.
какая тут ошибка и как ее исправить? пишет, что нельзя преобразовать тип real к integer в рядах
if x1<0 and x2<0 then writeln ('Корені відємні')else
if x1>0 and x2>0 then writeln ('Корені додатні')else
if x1>0 and x2<0 then writeln ('Корені мають різні знаки')else
if x1<0 and x2>0 then writeln ('Корені мають різні знаки')else.

1. В прямом коде число 0 имеет два представления «+0» и «–0». ... В обратном коде число 0 также имеет два представления «+0» и «–0». Дополнительный код для положительных чисел имеет тот же вид, что и прямой код, а для отрицательных чисел образуется путем прибавления 1 к обратному коду.

2. При использовании дополнительного кода возникающая единица переноса из знакового разряда отбрасывается. При использовании обратного кода возникающая единица переноса из знакового разряда циклически прибавляется к младшему разряду суммы кодов. Это требует усложнения аппаратных средств.

Объяснение:

Сопоставьте определения в гонке роботов с названием Самый интересный из роботов EV3 Роботы должны удалить соперника с ринга в течение определенного времени, если через определенное время оба робота приблизятся к середине ринга, победителем будет один гонок. Если внутри круга, Робо-сумо соответствует. Внешний диаметр круга отмечен точкой в середине внутреннего диаметра - тип поля, который составляет 100 мм, 1000 мм, красный Схватка между двумя роботами. состоит из нескольких раундов. Робо - C * Y * M * O 2