Var
C,C2:char;
i,B:integer;
Begin
B:=1;
Read(C);
C2:=C;
While C <> '.' do
Begin
if C2 > C then B:=0;
C2:=C;
Read(C);
End;
Write(B <> 0)
End.
16. а) 101010+1101=110111 б) 1010+1010=10100 в) 10101+111=11100
17. а) 1010*11=11110 б) 111*101=11011 в) 1010*111=1100110
Ответ:
var x:Real;
begin
write ('x = ');
Readln(x);
if x<0 then Write('y = ',x*x) else
if x>2 then Write('y = ',(3*x-1)/(2*x)) else
Write('y = ',sqr(x)*x+5)
end.
W
i
n
<span>t
e
r
c
o
m
i
n
g
</span>А если по нормальному: Win<span>ter coming </span>
1)56(10)=111000(2); тут все просто, берем и делим число 56:2=28(остаток 0),28:2=14(остаток 0), 14:2=7(остаток 0), 7:2=3(остаток 1),3:2=1(остаток 1) и потом все 1 и 0 записываем в обратном порядке, то есть получается 111000
2)174(8)=124(10). Немного по другому, 1*8^2+7*8^1+4*8^0=124, т. к. 8 это основание, степени ставят с конца и по возрастающей (не забудь, что любое число в 0 степени равно 1)
3)2A,4(16)=42,25(10). Как и во 2) А=10(так как 16 система счисления)