z:=ln(abs(15*x/(sqrt(x*x+y*y)-15*y)));
z:=ln(abs((sqrt(x*x+y*y)-x)/(sqrt(x*x+y*y)+x)));
8) 1 (т.к в скобках везде идет сложение)
9) 1 (т.к в конце, не в зависимости от результата плюсуем единицу)
10) Сначала делаем конъюкцию , потом дезъюнкицю, следовательно A*0 = 0, 1+0 = 1, ответ 1
Ответ:
Объяснение:
110101₂ = 1*2⁰ + 0*2¹ + 1*2² + 0*2³ + 1*2⁴ + 1*2⁵ = 53₁₀
53₁₀ = 5*8⁰ + 6*8¹ = 65₈
53₁₀ = 5*16⁰ + 3*16¹ = 35₁₆
217₈ = 7*8⁰ + 1*8¹ + 2*8² = 143₁₀
143₁₀ = 1*2⁰ + 1*2¹ + 1*2² + 1*2³ + 0*2⁴ + 0*2⁵ + 0*2⁶ + 1*2⁷ = 10001111₂
143₁₀ = 15*16⁰ + 8*16¹ = 8F₁₆
216₁₀ = 0*2⁰ + 0*2¹ + 0*2² + 1*2³ + 1*2⁴ + 0*2⁵ + 1*2⁶ + 1*2⁷ = 11011000₂
216₁₀ = 0*8⁰ + 3*8¹ + 3*8² = 330₈
216₁₀ = 8*16⁰ + 13*16¹ = D8₁₆
4AC₁₆ = C*16⁰ + A*16¹ + 4*16² = 1196₁₀
1196₁₀ = 0*2⁰ + 0*2¹ + 1*2² + 1*2³ + 0*2⁴ + 1*2⁵ + 0*2⁶ + 1*2⁷ + 0*2⁸ + 0*2⁹ + 1*2¹⁰ = 10010101100₂
1196₁₀ = 4*8⁰ + 5*8¹ + 2*8² + 2*8³ = 2254₈
Var
i, a, b, n, n2, j: longint;
s: string;
flag: boolean;
begin
Write('Введите через пробел границы диапазона: ');
Readln(a, b);
if b < a then begin n := a; a := b; b := n end;
if a < 11 then a := 11;
for i := a to b do
begin
Str(i, s);
n := Length(s); n2 := n div 2; flag := true; j := 1;
repeat
flag := (s[j] = s[n - j + 1]);
j := j + 1
until (not flag) or (j > n2);
if flag then Write(i, ' ')
end;
end.
Тестовое решение:
Введите через пробел границы диапазона: 800 1500
808 818 828 838 848 858 868 878 888 898 909 919 929 939 949 959 969 979 989 999 1001 1111 1221 1331 1441
CLS
INPUT "введи число элементов последовательности"; m
DIM a(m)
FOR i = 1 TO m
PRINT "введи"; i; "элемент последовательности";
INPUT a(m)
IF a(m) > 0 THEN x = x + 1
IF a(m) = 0 THEN y = y = 1
IF a(m) < 0 THEN z = z + 1
NEXT i
PRINT "количество положительных элементов последовательности равно"; x
PRINT "количество нулевых элементов последовательности равно"; y
PRINT "количество отрицательных элементов последовательности равно"; z
END