//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>
145=128+16+1=2^7+2^4+2^0=1001 0001 (2cc)
120=64+32+16+8=2^6+2^5+2^4+2^3= 0111 1000 (2cc)
30=16+8+4+2= 0001 1110 (2cc)
56=32+16+8=2^5+2^4+2^3=0011 1000 (2cc)
ответ: 10010001.01111000.00011110.00111000
Ответ:
Петличный микрофон? Если ты про этот