1A2F получится. ТК. мы число делим на 16
Program abc;
var a,b,c:integer;
begin
writeln('Введите первую сторону');
read(a);
writeln('Введите вторую сторону');
read(b);
writeln('Введите третью сторону');
if (a>b) and (a>c) then write(a);
if (b>a) and (b>c) then write(b);
if (c>a) and (c>b) then write(c);
if (a=b) or (a=c) or (c=b) then write('Есть равные стороны и нет большей')
end.
Вот этот кусочек будет считать сколько элементов в массиве меньше 6.
x := 0;
for i := 1 to n do
begin
if m[i] < 6 then
inc(k);<span>
end;
writeln(k);
</span>
А) 5 кбайт= 5120 байт= 40960 бит
б) 1,5 кбайт= 1536 байт= 12 288 бит
в) 1 кбайт= 1024байт= 2 ^13 бит
г) 1,5 гбайт= 1536 мбайт=1572854 кбайт
д) 512 кбайт=2 байт=2 бит
Последний вопрос добавлю в комменты попозже