Ответ:
1.
1101₂ = 1*2⁰ + 0*2¹ + 1*2² + 1*2³ = 13₁₀
X = 113₁₀ - 13₁₀ = 100₁₀
100₈ = 0*8⁰ + 0*8¹ + 1*8² = 64₁₀
2.
0,98765
0,0000123
1359000
0,00019569120
Объяснение:
1 и 2 решил, 3 и 4 я не в теме, добавьте их отдельным вопросом, может кто ответит
Задание 2, 1:
program zadacha1;
uses crt;
var x, y: real;
begin
clrscr;
write('enter x: ');
readln (x);
x:=(x*pi)/180; // в Паскале используется измерение в радианах, здесь мы
// переводим из градусов (так как мы задаем значение в градусах) в радианы
y:=sqr(cos(x))+sqr(sin(x))*sin(x);
writeln ('y=', y:0:4);
readkey;
<span>end.
2
program zadacha2;
uses crt;
var y: real;
begin
clrscr;
y:=sqr(sin(pi))+ pi/2;
writeln ('y=', y:0:4);
readkey;
<span>end.
</span>
3
program zadacha3;
uses crt;
var x, y: real;
begin
clrscr;
write ('enter x: ');
readln (x);
x:=(x*pi)/180;
y:=sin(x)/cos(x) + 0.25;
writeln ('y=', y:0:4);
readkey;
end.
4
program zadacha4;
uses crt;
var x, y, z: integer;
begin
clrscr;
write ('enter x, z');
readln (x, </span><span>z</span>);
y:=abs(x)+2*abs(z);
writeln ('y=', y:0:4);
readkey;
end.
К<span> </span>фактам<span> </span>относятся <em />знания об определённых явлениях
Var n, digit, ans : integer;
begin
read(n);
ans := 0;
while (n > 0) do begin
digit := n mod 10;
if ((digit = 1) or (digit = 3) or (digit = 9)) then
ans := ans + 1;
n := n div 10;
end;
writeln(ans);
<span>end.</span>