Есть крутая вещь - справка! Найти аналоги функций не такая уж большая проблема...
VB.
Dim i As Integer
Dim Massiv() As Integer
For i = 0 To Massiv.Length - 1
Massiv(i) += 4
<span>Next</span>
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.
100(C) 011(A) 01(E) 10(B) 110(D). Ответ - 3.
А) У нас есть число в двоичной системе счисления: 01001100. Над каждой цифрой напишем ее разряд (справа налево; разряд начинается с 0). Затем мы первую цифру данного нам числа должны перемножить на основание данного нам числа ( т.к 01001100 - двоичное число, то основание соответственно равно 2) в какой-то степени ( степень определяется разрядом цифры), затем нужно проделать это со всеми цифрами числа и сложить результаты(все это делается с право налево).
01001100(2) = <span>1*2^6 + 1*2^3 + 1*2^2 = 76(10)</span> ( 0 можно опускать, так как при умножении на 0 всегда будет 0)
б) 00010101(2) = 1*2^4 + 1*2^2 + 1*2^0 = 21(10)
P.s Так как код прямой, то все разряды являются целом числом в двоичном коде. Самый крайний левый разряд определяет знак числа в десятичной системе счисления ( если 0, то +, если 1, то -)
