Запишите в развернутом виде следующие числа: а)147, 65 в 10 степени, б)248 в 16 степени, в)365 в 8 степени, г)1010 во 2 степени.!

147.65= 1*10^2+4*10^1+7*10^0+6*10^-1+5^-2
248=2*16^2+4*16^1+8*16^0
365=3*8^2+6*8^1+5*8^0
1010=1*2^3+0*2^2+1*2^1+0*2^0

const n=6; m=n;

var b:array[1..n,1..m] of integer;

i,j: integer;

begin

writeln('Исходный массив:');

for i:=1 to n do

begin

for j:=1 to m do

 begin

 b[i,j]:=random(90)+10;

 write(b[i,j]:4);

 end;

writeln;

end;

writeln('Полученный массив:');

for i:=1 to n do

for j:=1 to m do

 if i<>j then b[i,j]:=0;

for i:=1 to n do

begin

for j:=1 to m do write(b[i,j]:4);

writeln;

end;

end.

Пример:

Исходный массив:

 59  63  74  85  64  87

 59  86  48  66  68  44

 49  36  90  15  96  34

 44  52  81  83  57  53

 61  45  93  85  16  40

 17  68  11  43  84  96

Полученный массив:

 59   0   0   0   0   0

  0  86   0   0   0   0

  0   0  90   0   0   0

  0   0   0  83   0   0

  0   0   0   0  16   0

  0   0   0   0   0  96

Program maximal;

const

nmax=100;

var

a:array[1..nmax] of integer;

N,i,max:integer;

begin

readln(N);

max:=0;

for i:=1 to N do

 begin

   read(a[i]);

   if max<a[i] then

     max:=a[i];

end;

write(max);

end.

2) Program B;

    const

nmax=100;

var

a:array[1..nmax] of integer;

N,i,z:integer;

begin

readln(N);

z:=0;

for i:=1 to N do

 begin

   read(a[i]);

   if a[i]>0 then

       write(a[i],' ');

    if a[i]=0 then

       z:=z+1;

end;

writeln();

for i:=1 to N do

   begin

      if a[i]<0 then

        write(a[i],' ');

  end;

writeln();

for i:=1 to z do

   write('0',' ')

end.