Перевести из двоичной в десятичную систему счисления в развернутом виде 0110; 111; 100.
Перевести из восьмеричной в десятичную систему счисления в развернутом виде
766; 102; 654.
Перевести из шестнадцатеричной в десятичную систему счисления в развернутом виде
А1В2; 24С; 1АС.
program HelloWorld;
var n:array [1..15] of integer;
var c: integer;
var z,i: SmallInt;
begin
for i:=1 to 15 do
n[i] := random(1000);
repeat
z:=0;
//сортировка
for i:=1 to 15 do
if n[i]> n[i+1] then
begin
c:=n[i];
n[i]:=n[i+1];
n[i+1]:=c;
z:=1;
end;
until z=0;
for i:=1 to 15 do
writeln(n[i])
end.
2.
program HelloWorld;
var n:array [1..10,1..7] of integer;
var c: integer;
var z,i: SmallInt;
begin
for i:=1 to 10 do
for z:=1 to 7 do
n[i,z] := random(1000);
for i:=1 to 10 do
for z:=1 to 7 do
begin
write('A[',i,',',z,']=');
writeln(n[i,z]);
end;
for i:=1 to 10 do
for z:=1 to 7 do
begin
if i = 5 then
begin
c := n[5,z];
n[5,z] := n[7,z];
n[7,z] := c;
end;
end;
writeln('');
for i:=1 to 10 do
for z:=1 to 7 do
begin
write('A[',i,',',z,']=');
writeln(n[i,z]);
end;
end.