Программа (без проверки исходных данных):
var a,b,y,z:real;
begin
write('a, b: ');
readln(a,b);
y:=cos(sqrt(a+b));
z:=ln(sin(y)/cos(y));
writeln('ln(tg(cos(sqrt(a+b)))) = ',z);
end.
Пример:
a, b: 0.5 0.8
ln(tg(cos(sqrt(a+b)))) = -0.813058267838025
Ответ:
Объяснение:
T i m e
54 69 6D 65
01010100₂ - T
01101001₂ - i
01101101₂ - m
01100101₂ - e
54₁₆ = 4*16⁰ + 5*16¹ = 84₁₀
84₁₀ = 0*2⁰ + 0*2¹ + 1*2² + 0*2³ + 1*2⁴ + 0*2⁵ + 1*2⁶ = 1010100₂
69₁₆ = 9*16⁰ + 6*16¹ = 105₁₀
105₁₀ = 1*2⁰ + 0*2¹ + 0*2² + 1*2³ + 0*2⁴ + 1*2⁵ + 1*2⁶ = 1101001₂
6D₁₆ = D*16⁰ + 6*16¹ = 109₁₀
109₁₀ = 1*2⁰ + 0*2¹ + 1*2² + 1*2³ + 0*2⁴ + 1*2⁵ + 1*2⁶ = 1101101₂
65₁₆ = 5*16⁰ + 6*16¹ = 101₁₀
101₁₀ = 1*2⁰ + 0*2¹ + 1*2² + 0*2³ + 0*2⁴ + 1*2⁵ + 1*2⁶ = 1100101₂
1 - e
2 - b
3 - b
4 - d
5 - b
<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s1:=ReadlnString;
var s2:=ReadlnString;
var s3:=s1.Interleave(s2).JoinIntoString;
Writeln(s3)
end.
<u>Пример</u>
крокодил
черепаха
кчреоркеопдаихла