Program P;
Var
a, n, i : Integer;
S : Integer;
Begin
S := 1;
Write('Enter a ');
ReadLn(a);
Write('Enter n ');
ReadLn(n);
for I:=1 to N do
S := S * a;
WriteLn('a ^ n = ', S);
ReadLn;
End.
Длиной не менее 2 и не более 4 символов можно закодировать последовательности из 2-х, 3-х и 4-х символов.
Определим количество каждого и сложим.
Каждый сигнал принимает одно из трёх значений.
2 символа - 3^2 = 9
3 символа - 3^3 = 27
4 символа - 3^4 = 81
9+27+81 = 117
Нумерация битов, чтоб было понятнее, 7654 3210
68 в двоичной это 0100 0100
36 в двоичной это 0010 0100
Теперь порассуждаем.
X&68 не будет равно нулю только при условии, что либо бит 2 равен одному, либо бит 6.
X&36 = 0 если бит 5 и бит 2 тоже равны нулю.
Получается. что чтобы выражение было истинным (X&68 != 0) -> (X&36 = 0), необходимо чтобы в числе бит 6 был равен единице, а биты 5 и 2 - нулям, то есть число X имеет вид ?10? ?0??
В этом случае, чтобы было истинным выражение X&A = 0, в A бит 6 должен быть нулем, биты 5 и 2 могут быть и нулем, и единицами, а все остальные должны быть нулями. Поэтому подходящие под А числа:
0000 0000 - 0
0000 0100 - 4
0010 0000 - 32
0010 0100 - 36
Ну а дальше зависит от того, считать ли 0 натуральным. Если не считать - то ответ А = 4
Ответ: Съешь ещё этих мягких французских булок, да выпей же чаю.
Var
a, b, S, c, alpha, betta, gamma, H, P: real;
x, ar, br, gr: real;{alpha, beta. gamma в радианах}
begin
write('Введите длины двух сторон треугольника и площадь: ');
readln(a, b, S);
x := 2 * S / (a * b);
if x > 1 then writeln('Такой треугольник невозможен')
else
begin
gr := ArcSin(x);
c := Sqrt(Sqr(a) + Sqr(b) - 2 * a * b * Cos(gr));
P := a + b + c;
ar := ArcSin(a * Sin(gr) / c);
br := Pi - (ar + gr);
H := b * Sin(ar);
alpha := ar * 180 / Pi;
betta := br * 180 / Pi;
gamma := 180 - (alpha + betta);
writeln('Решение треугольника');
writeln('a=', a, ', b=', b, ', c=', c:0:5);
writeln('Alpha=', alpha:0:2, ', Betta=', betta:0:2, ', Gamma=', gamma:0:2);
writeln('P=', P:0:5, ', H=', H:0:5, ', S=', S)
end
end.
Тестовое решение:
Введите длины двух сторон треугольника и площадь: 3 4 6
Решение треугольника
a=3, b=4, c=5.00000
Alpha=36.87, Betta=53.13, Gamma=90.00
P=12.00000, H=2.40000, S=6