1) переведите числа из десятичной системы счисления в двоичную, восьмеричную и шестнадцатеричную системы - id933166020220910 от vasilarina06 10.09.2022 11:57

Question

Информатика: 1) переведите числа из десятичной системы счисления в двоичную, восьмеричную и шестнадцатеричную системы счисления. а) 49; б) 156; в))2

vasilarina06 · Accepted Answer

var

a : array [1..9] integer;

i : integer;

begin

for i := 1 to 9 do

if i mod 3 = 1 then a[i] := i

else if i mod 3 = 2 then a[i] := sqr (i - 1)

else a[i] := a[i - 1] div i;

for i := 1 to 9 do

write (a[i], ' ');

end.

var

b, a : array [1..15] of integer;

i, sa, sb : integer;

begin

randomize;

sa := 0; sb := 0;

for i := 1 to 15 do

begin

a[i] := trunc (random (100)) + 1;

write (a[i], ' ');

sa := sa + a[i];

end;

writeln;

for i := 1 to 15 do

begin

b[i] := sqr (a[i]) - a[i]);

write (b[i], ' ');

sb := sb + b[i];

end;

writeln;

writeln (abs (sb - sa));

end.

1) переведите числа из десятичной системы счисления в двоичную, восьмеричную и шестнадцатеричную системы счисления. а) 49; б) 156; в))2