var
a, b : real;
begin
writeln('ax=b');
write('введите a, b: ');
readln(a, b);
writeln(a, 'x=', b);
if (a = 0) and (b = 0) then writeln('x= бесконечное множество')
else if (a = 0) and (b <> 0) then writeln('уравнение не имеет решений')
else begin
writeln('x=', b, '/', a);
writeln('x=', b/a);
end;
end.
0,00025 кбайт = 0,25 байт = 2 бит
1)123_8= 83_10
FF_16= 255_10
11100111_2= 231_10
2)83+255-231=107
3)107_10=1101011_2
Ис+(пол)+(нить')+(ель)=Исполнитель