//PascalABC.NET 3.0
begin
var a := ReadReal('a =');
var b := ReadReal('b =');
var c := ReadReal('c =');
b -= c;
if (a = 0) and (b = 0) then writeln('Уравнение имеет бесконченое множество корней')
else if a = 0 then writeln('Уравнение не имеет корней')
else writeln('Уравнение имеет один корень: ', -b / a);
<span>end.</span>
& - конъюнкция (аналог умножения), выполняется первой
A&0=0, A&1=A
v - дизъюнкция (аналог сложения)
1vA=1, Av0=A
1&0 v 1&1 v 1 = 1&0 v 1&1 v 1 = 0 v 1 v 1 = 1
0&1&0&0&1 v 1 = (0&1&0&0&1) v 1 = Av1 = 1
1&1&1 v 0 v 1 = (1&1&1 v 0) v 1 = Av1 = 1
Т. к. а не может быть одновременно быть больше 1000 и меньше 100, никогда не выйдет 'Ошибка'
===== PascalABC.NET =====
begin
ReadSeqIntegerWhile(p -> p <> 0).Average.Println
end.