Дано целое число .напишите программу , которая уменьшает на 2 модуль этого числа и выводит на экран монитора результат.

var n,z: longint;

begin

  read(n);

  z: =abs(n);

  z: =z-2;

  writeln(z);

end.

program vvl;

var x: integer;

      v: real;

begin

write('x=');

readln (x);

v: = abs(a)-2;

writeln ('v='; v: 2: 1);

end.

а)  (11111012 + af16)/368

переведем числа в одну систему счисления

1111101 = 1*2^6 + 1*2^5 + 1*2^4 + 1*2^3 +1*2^2 +0*2^1 +1*2^0 = 125 (10 cc)

af = a*16^1 +f*16^0 = 160 +15   =175 (10 cc)

36 = 3*8^1 + 6*8^0 = 24 +6 = 30 (10 сс)

считаем:

(125 +75) / 30 = 300 / 30 = 10 (10 сс)

 

б)  1258 + 111012*a216 - 14178

переведем числа в одну систему счисления

125 = 1*8^2 + 2*8^1 + 5*8^0 = 64 +16 + 5 = 85 (10 cc)

11101 =  1*2^4 + 1*2^3 +1*2^2 +0*2^1 +1*2^0 = 16 + 8 + 4 + 0 + 1 = 29 (10 cc)

a2 = a*16^1 + 2*16^0 = 160 + 2 = 162 (10 cc)

1417 = 1*8^3 + 4*8^2 + 1*8^1 + 7*8^0 = 512 + 256 + 8 + 7 = 783 (10 cc)

85 + 29*162 - 783 = 4000 (10 cc)

5a316  = 3·160+10·161+5·162= 3·1+10·16+5·256 = 3+160+1280 = 144310

 

                          0hex = 0dec = 0oct   0 0 0 0     1hex = 1dec = 1oct   0 0 0 1     2hex = 2dec = 2oct   0 0 1 0     3hex = 3dec = 3oct   0 0 1 1                             4hex = 4dec = 4oct   0 1 0 0     5hex = 5dec = 5oct   0 1 0 1     6hex = 6dec = 6oct   0 1 1 0     7hex = 7dec = 7oct   0 1 1 1                             8hex = 8dec = 10oct   1 0 0 0     9hex = 9dec = 11oct   1 0 0 1     ahex = 10dec = 12oct   1 0 1 0     bhex = 11dec = 13oct   1 0 1 1                             chex = 12dec = 14oct   1 1 0 0     dhex = 13dec = 15oct   1 1 0 1     ehex = 14dec = 16oct   1 1 1 0     fhex = 15dec = 17oct   1 1 1 1