Ответ:
173₁₀ = = 173₁₀
173₁₀ = 5*8⁰ + 5*8¹ + 2*8² = 255₈
A2₁₆ = 2*16⁰ + A*16¹ = 162₁₀
162₁₀ = 0*2⁰ + 1*2¹ + 0*2² + 0*2³ + 0*2⁴ + 1*2⁵ + 0*2⁶ + 1*2⁷ = 10100010₂
Объяснение:
желательно указывать также основание исходных чисел
Измените тип переменных n и k на integer:
function Xfact(o: integer): integer;
var
factorial: longint;
i: integer;
begin
write('o = ');
readln(o);
factorial := 1;
for i := 2 to o do
factorial := factorial * i;
end;
var
c: real;
n,k:integer;
begin
writeln('Введите число n: ');
readln(n);
writeln('Введите число k: ');
readln(k);
c := Xfact(n) / Xfact(n - k) * Xfact(k);
writeln('C = ', c);
end.
Если А делится на 55, то оно делится на 5 и на 11. Это уже три утверждения, но истинными могут быть только два. То есть А не делится на 55.
Если А делится на 11, нам нужно выбрать еще два истинных утверждения. Но делимость на 5 и на 55 будут следовать друг из друга, а меньше 10 А быть не может, т.к. 11 больше 10.
Остается только вариант, когда А меньше 10, делится на 5, не делится на 11 и 55. Т.е. А = 5
Z????.*
? - это строго один любой символ
* - это любое количество символов, даже может символ отсутствовать
Var
L:integer;
begin
writeln('Введите средний балл ученика: ');
readln(L);
if L>=13 then
writeln('Ученик будет посещать факультатив.');
if L<13 then
writeln('Ученик не может посещать факультатив!');
<span>end.</span>