а) 370₁₀ = 101110010₂
б) 244₁₀ = 340₈
в) 670₁₀ = 29E₁₆
Объяснение:
а)
370 / 2 = 185 + остаток 0
185 / 2 = 92 + остаток 1
92 / 2 = 46 + остаток 0
46 / 2 = 23 + остаток 0
23 / 2 = 11 + остаток 1
11 / 2 = 5 + остаток 1
5 / 2 = 2 + остаток 1
2 / 2 = 1 + остаток 0
1 / 2 = 0 + остаток 1
записываем остатки снизу вверх
370₁₀ = 101110010₂
б)
224 / 8 = 28 + остаток 0
28 / 8 = 3 + остаток 4
3 / 8 = 0 + остаток 3
записываем остатки снизу вверх
244₁₀ = 340₈
в)
670 / 16 = 41 + остаток 14
41 / 16 = 2 + остаток 9
2 / 16 = 0 + остаток 2
записываем остатки снизу вверх
670₁₀ = 29E₁₆
В качестве цифр шестнадцатеричной системы счисления обычно используются цифры от 0 до 9 и латинские буквы от A до F.
A₁₆ = 10₁₀ B₁₆ = 11₁₀ C₁₆ = 12₁₀ D₁₆ = 13₁₀ E₁₆ = 14₁₀ F₁₆ = 15₁₀
ответ: uses crt;
var a:array[1..50,1..50] of integer;{матрица}
m,n,i,j,k,tmp:integer; {размеры матрицы,счетчики циклов, буфер для обмена}
begin
clrscr;
randomize;
writeln('Введите размеры матрицы:');
write(' Количество строк m=');
repeat
readln(m);
until m in [1..50];
write(' Количество столбцов n=');
repeat
readln(n);
until n in [1..50];
writeln;
writeln('Исходная матрица:');
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=random(100);{заполним матрицу случайными числами в инт[0,99]}
write(a[i,j]:4);
end;
writeln;
end;
writeln;
{сортировка матрицы пузырьком}
for k:=1 to n*m do {повторяем сколько элементов в матрице}
for i:=1 to m do
for j:=1 to n do
begin
if j<>n then {если элемент в строке не последний}
begin
if a[i,j+1]>a[i,j] then
begin
tmp:=a[i,j+1];
a[i,j+1]:=a[i,j];
a[i,j]:=tmp;{обмен элементов}
end;
end
else
if (a[i+1,1]>a[i,j])and(i<>m)then {если строка не последняя}
{меняем первый элемент в следущей строке с последним элементом в текущей строке}
begin
tmp:=a[i+1,1];
a[i+1,1]:=a[i,j];
a[i,j]:=tmp;
end;
end;
writeln('Отсортированная матрица:');
for i:=1 to m do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
readln
end.
Объяснение:
var
FileName, Ext: string;
i, p: Integer;
begin
Write ('Введите имя файла: ');
Read (FileName);
p := 0;
for i := Length (FileName) downto 1 do begin
if FileName [i] = '.' then begin
p := i;
Break;
end;
end;
if p = 0 then begin
WriteLn ('Не найдено расширение имени файла!');
Exit;
end;
Ext := LowerCase (Copy (FileName, p + 1, Length (FileName) - p));
if (Ext = 'htm') or (Ext = 'html') or (Ext = 'php') then
WriteLn ('Это веб - страница!')
else if (Ext = 'doc') or (Ext = 'docx') then
WriteLn ('Это документ Microsoft Word!')
else if (Ext = 'xls') or (Ext = 'xlsx') then
WriteLn ('Это документ Microsoft Excel!')
else if (Ext = 'zip') or (Ext = 'rar') or (Ext = '7z') then
WriteLn ('Это архив!')
else if Ext = 'exe' then
WriteLn ('Это программа!')
else
WriteLn ('Что - то другое.');
end.