Представить числа в двоичном виде в восьмибитовой ячейке в формате целого без знака *5*

1) нужно сначала перевести число 5 в двоичную систему счисления: 5/2 = 2 ост 1 2/2 = 1 ост 0 5 (10) = 101(2) одноразрядное представление (восьмибайтовая ячейка)  - это 8 ячеек памяти. дописать нули нужно впереди числа, чтобы значение этого числа не изменилось. число беззнаковое, значит №1 ячейка будет тоже использована под запись самого числа. 00000101 - представление числа 5 в  восьмибитовой ячейке в формате целого числа без знака

// pascalabc.net var   n2,n4,a,b: integer; begin   write('введите натуральное двухзначное число: '); read(n2);   write('введите натуральное четырехзначное число: '); read(n4);   a: =n2 div 10; b: =(n4 mod 100) div 10;   writeln(a*b) end. // pascalabc.net var   n5,n4,a,b: integer; begin   write('введите натуральное пятизначное число: '); read(n5);   write('введите натуральное четырехзначное число: '); read(n4);   a: =(n5 mod 1000) div 100; b: =(n4 mod 1000) div 100;   writeln(sqrt(a+b)) end.

Const  n=7; day: array[1..7] of string[15] = ('понедельник','вторник','среда','четверг','пятница','суббота','воскресенье'); var   t: array[1..7] of integer;   d: array[1..7] of real;   i,k: byte;   s: integer;   sr: real; begin   s: =0;   randomize;   writeln('температура в течение недели: ');   for i: =1 to n do   begin     t[i]: =random(50)-25;     s: =s+t[i];     write(t[i]: 4);   end;   writeln; sr: =s/n; writeln('средняя температура: ',sr: 3: 2); k: =0; writeln('температуры ниже средней в дни  : '); for i: =1 to n do   if t[i]< sr then   begin         write(day[i]: 15);         k: =k+1;   end; writeln; writeln('всего ',k,' дня(ей)'); writeln('массив отклонений: '); for i: =1 to n do   begin   d[i]: =t[i]-sr;   write(d[i]: 8: 3);   end; end.