Для перевода необходимо умножить разряд числа на соответствующую ему степень разряда.
1110102<span> = 2</span>5*1 + 24*1 + 23*1 + 22*0 + 21*1 + 20*0 = 32 + 16 + 8 + 0 + 2 + 0 = 58
Ответ: 1110102<span>=58</span>
Не (А + В) = (не А) & (не В)
не А + (не А) & (не В) = не А
не (А & B) = не А + не В
B & (не А + не В) = (не А) & B
не ( (не А) & B ) = А + не B
F = не А + А + не В = 1 + не В = 1
Ответ:
program multiple;
var
N, P: Real;
begin
P := 1;
WriteLn ('Введете числа: ');
repeat
ReadLn (N);
if N <> 0 then
P := P * N;
until N = 0;
WriteLn ('Произведение = ', P :15 :5);
ReadLn;
end.
63
49
8506
.........................................................
INPUT "A="; A
INPUT "B="; B
INPUT "C="; C
IF A = B AND B = C THEN
PRINT "Числа равны"
END
END IF
IF A > B THEN
IF B > C THEN PRINT A, B, C ELSE PRINT A, C, B
ELSE
IF B > C THEN
IF A > C THEN PRINT B, A, C ELSE PRINT B, C, A
ELSE
IF A > B THEN PRINT C, A, B ELSE PRINT C, B, A
END IF
<span>END IF</span>