1) Переводим в двоичную систему счисления, деля число целочисленно на 2 до тех пор, пока не получится 0.
Записываем остатки от деления в обратном порядке.
1100000110011 - ответ
2)Разбиваем двоичное число на тройки, начиная с младшего разряда: [001][100][000][110][011]
Каждую тройку переводим в восьмиричную систему счисления и записываем "как есть": [1][4][0][6][3].
14063 - ответ
3)Разбиваем двоичное число на четверки, начиная с младшего разряда: [0001][1000][0011][0011]
Переводим каждую четверку в шестнадцатиричную сисиему счисления и записываем "как есть": [1][8][3][3].
1833 - ответ.
Var a, n :integer;
begin
writeln('a=');
readln(a);
n:=a mod 10;
writeln (n);
readln;
<span>end.</span>
//я так понимаю, речь идёт о монотонном возрастании
var ar:array[1..10] of integer;
i:integer;
begin;
for i:=1 to 10 do
readln(ar[i]);
for i:=2 to 10 do
begin;
if ar[i]<ar[i-1] then
begin;
writeln('Не возрастает');
exit;
end;
end;
writeln('Возрастает');
<span>end. </span>
Дерево -корень
Дерево - ствол
Дерево - фруктовое - яблоня - яблоко
Дерево - хвойное - сосна
Дерево -хвойное - пихта
Дерево - хвойное лиственница
Дерево лиственное - дуб - желудь
Дерево - лиственное - береза
Это отдельное устройство. покупаешь его и присоеденяешь к ПК