оч всем бобра
Завдання. Переведіть числа з однієї системи числення в іншу:
1) 10000111101111000012 = ?8 ?16
2) 1110001100011112 = ?8 ?16
3) 1010101010102 = ?8 ?16
4) 1000011100011002 = ?8 ?16
5) 561248 = ?2 ?16
6) 77777778 = ?2 ?16
7) 100018 = ?2 ?16
8) 121318 = ?2 ?16
9) 1B8CE16 = ?2 ?8
10) 16 = ?2 ?8
11) ABCDEF16 = ?2 ?8
12) 20202016 = ?2 ?8
n=10;m=7;
var
a:array[1..n,1..m]of integer;
i,j,min,s,j_m:integer;
begin
for i:=1 to n do
begin
writeln;
for j:=1 to m do
begin
a[i,j]:=random(20)-5;
write(a[i,j]:4);
end;
end;
writeln;
{запишем в min чуть больше наибольшего значения суммы, которая может быть в любом столбце. Больше, чем 200 не будет, т.к. всего 10 строк, каждое значение исходя из заполнения матрицы не может быть больше, чем 15 }
min:=200;j_m:=1;
for j:=1 to m do
begin
s:=0;
for i:=1 to n do
s:=s+a[i,j];
if s<min then
begin
j_m:=j;
min:=s;
end;
writeln('j :',j,' ',s); {выводится значение суммы в каждом столбце, необязательно, можно удалить}
end;
writeln('№ столбца с мин суммой ',j_m);
for i:=1 to n do
writeln(a[i,j_m]); {вывод нужного столбца}
end.