Составить программу вычесления значения выражения -1/х²​

Var
 ar,ar2:array[1..10] of integer;
 i:integer;
begin
randomize;
 writeln('First array:');
  for i:=1 to 10 do
   begin;
    ar[i]:=random(10)-3;
    write(ar[i]:4);
    if ar[i]=0 then ar2[i]:=0;
   end;
 writeln;
 writeln('1-st Final array:');
  for i:=1 to 10 do
   begin;
    write(ar2[i]:4);
    if ar[i]<0 then ar2[i]:=ar[i];
   end;
 writeln;
 writeln('2-st Final array:');
  for i:=1 to 10 do
   begin;
    write(ar2[i]:4);
    if ar[i]>0 then ar2[i]:=ar[i];
   end;
 writeln;
 writeln('3-st Final array:');
  for i:=1 to 10 do
    write(ar2[i]:4);
end.    

1Найдите значение выражения 8F – 80 в шестнадцатеричной системе счисления. В ответе запишите вычисленное значение в десятичной системе счисления.

Решение.

Переведём число 8F16 из шестнадцатеричной в десятичную систему счисления:

8F16 = 14310.

Переведём число 8016 из шестнадцатеричной в десятичную систему счисления:

8016 = 12810.

Найдём разность: 143 − 128 = 15.

2

Найдите значение выражения 1116 + 118 : 112. ответ запишите в двоичной системе счисления.

Решение.

Переведем все числа в десятичную систему счисления, выполним действия и переведем результат в двоичную систему счисления:

1116 = 16 + 1 = 1710,

118 = 8 + 1 = 910,

112 = 2 + 1 = 310,

17 + 9 : 3 = 17 + 3 = 2010,

20 = 16 + 4 = 10100 и маленькая два вместе с ответом

3

Вычислите значение выражения B916 − 2718. В ответе запишите вычисленное значение в десятичной системе счисления.

Ре­ше­ние.

Пе­ре­ведём числа в де­ся­тич­ную си­сте­му счис­ле­ния:

B916 = 18510

2718 = 18510

Найдём раз­ность: 185 − 185 = 0.

ответ дай лучшего ответа