var a,b,x: real;
begin
writeln('Введите коэффициенты линейного уравнения ax=b');
readln(a,b);
if (a=0) and (b=0) then writeln('Решений бесконечно много')
else
if (a=0) and (b<>0) then writeln('Решений нет')
else
if a<>0 then
begin
x:=b/a;
writeln('Корень уравнения: ',x)
end
end.
<span>1. Информация.
2. Редактор.
3. Программа.
4. Меню.
5. Окно.
6. Сеть.
7. Почта
8. Память.
9. Обеспечение.</span>
Формула Хартли: I = log2(N), где N - количество равновероятных вариантов.
Здесь N = 10, и I = log2(10) = 3.32 бит
Команда x:=4 присваивает переменной x значение 4
640x480=307200 пикс.
J = 110 бит
N=2^j
N=2^110 цветов