Var x,f:real;
<span>begin </span>
<span>writeln('Введите значение x –'); </span>
<span>read(x); </span>
<span>if x<=0 then f:=-x else </span>
<span>if (x>0) and (x<2) then f:=sqr(x) else f:=4; </span>
<span>writeln('Значение функции f(x) = ',f); </span>
<span>end.</span>
uses crt;
var ch,i,n,count:integer;
begin
n:=0;
count:=0;
write(' Введите число : ');
readln(ch);
if ((abs(ch)<30000) and (ch div 100 <> 0 ) and (ch mod 7 = 0)) then inc(count);
while ((ch<>0) and ( n <1001)) do
begin
write(' Введите число : ');
readln(ch);
if ((abs(ch)<30000) and (ch div 100 <> 0 ) and (ch mod 7 = 0)) then inc(count);
inc(n);
end;
writeln(count);
readln;
end.
1) 265 | 16
256 |-----
------| 16 | 16 265 (10cc) =109(16cc) =1 0000 1001 (2cc) =411 (8cc)
9 16|----
---- | 1
0
2) 111010001 (2cc) =2^8+2^7+2^6+2^4+2^0=465 (10cc)
1461 (8cc) =1*8^3+4*8^2+6*8+1=817 (10cc)
9D =9*16+13 =157 (10cc)
3) 1 001 101 110 + проверка: 10 111 010 101 -
1101 100 111 1 001 101 110
----------------------- ---------------------
10 111 010 101 1 101 100 111
4) 110 001 100 -
1 000 111 проверка: 101 000 101 +
------------------------ 1 000 111
101 000 101 ---------------
110 001 100
Очень просто задание.
А - 11
Б - 010
В - 100
Г - 110
1100101111110100, чтобы перевести в шестнадцатеричный код нужно отделять по 4 знака.
1100 1011 1111 0100
По таблице тетрад знаем.
CBF4
Ответ: CBF4
Не позиционный с.с. - римская или арабская
Позиционная с.с. - двоичная, троичная, восьмеричная, десятиричная и тп
