Ответ:
3) 4) - это точно правильно
Var
R:string;
begin
R:='0,017*100/2=0.85 ом';
writeln(R);
end.
Ответ:
149₁₆ = 511₈
14B₁₆ = 513₈
178₁₆ = 570₈
17C₁₆ = 574₈
15A₁₆ = 532₈
Объяснение:
149₁₆ = 9*16⁰ + 4*16¹ + 1*16² = 329₁₀
329₁₀ = 1*8⁰ + 1*8¹ + 5*8² = 511₈
14B₁₆ = B*16⁰ + 4*16¹ + 1*16² = 331₁₀
331₁₀ = 3*8⁰ + 1*8¹ + 5*8² = 513₈
178₁₆ = 8*16⁰ + 7*16¹ + 1*16² = 376₁₀
376₁₀ = 0*8⁰ + 7*8¹ + 5*8² = 570₈
17C₁₆ = C*16⁰ + 7*16¹ + 1*16² = 380₁₀
380₁₀ = 4*8⁰ + 7*8¹ + 5*8² = 574₈
15A₁₆ = A*16⁰ + 5*16¹ + 1*16² = 346₁₀
346₁₀ = 2*8⁰ + 3*8¹ + 5*8² = 532₈
<em>// PascalABC.NET 3.2, сборка 1383 от 09.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ReadReal;
var t:=SeqGen(30,x,y->y*x).Select(y->sin(y)).Any(y->y<0);
Writeln(t);
end.
<u>Примеры</u>
0.73
False
1.18
True
В задаче используем для решения две формулы I=Ki и N=2^i