ХЕЛП НЕ ЗАХОДИ НА ФЕЙКОВЫЕ АККАУНТЫ, НЕ ОБЩАЙТЕСЬ С ЧУЖИМИ ЛЮДЬМИ Напишите умолю

ДЕЛАТЬ БОЛЬШОЙ РАССКАЗ

Var
x: real;

begin
  x := 1;
  while (cos(1 / tan(x)) >= 0) do x := x + 1;
  Write(x, ': ', cos(1 / tan(x)))
end.

Результат выполнения программы:

6: -0.956871790478342

Если нужна промежуточная печать:

var
x: real;

begin
  x := 1;
  while (cos(1 / tan(x)) >= 0) do begin
  Writeln(x, ': ', cos(1 / tan(x)));
  x := x + 1
  end;
   Writeln(x, ': ', cos(1 / tan(x)))
end.

Результат выполнения программы:

1: 0.800844301895226
2: 0.897089962539917
3: 0.743794228654611
4: 0.64963571596558
5: 0.956565479264333
6: -0.956871790478342

1) 162,25(10) -> X(16)
162/16=10, остаток 2
162(10)=A2(16)
0.25x16=4,0
0.25(10)=0.4(16)
126,25(10)=A2.4(16)
A2,4(16) -> X(2) = 1010 0010, 0100(2)
10100010,01(2) -> X(8)
010 100 010, 010(2) = 242,2 (8)
ответ: 162,25(10)=A2,4(16)=10100010,01(2)=242,2(8)

2) 248,46(10) -> X(16)
248/16=15, остаток 8
248(10)=F8(16)
0,46x16=7,36 -> 7
0,36x16=5,76 -> 5
0,76x16=12,16 -> 12 = C(16)
0,16x16=2,56 -> 2
0,56x16=8,96 -> 8
И так далее.... ограничимся тремя первыми цифрами
248,46(10) ≈ F8,75C(16)
F8,75C(16) -> X(2) = 1111 1000,0111 0101 1100(2)
11 111 000,011 101 011 100(2) = 370,3534(8)
248,46(10) ≈ F8,75C(16) = 11111000,0111010111(2) = 370,3534(8)





Число 41A,616 не является правильной записью восьмеричного числа и не может быть переведено в десятичную систему счисления.