П.5 - в целом правильно. Можно было, правда, перевести в мегабайты, их сразу поделить на 8, а потом дальше уже переводить в килобайты и байты (числа промежуточные были б чуть поменьше, но это мелочь).
Придраться могут к первой строчке решения - суть в ней правильная, а вот запись математически не совсем корректна.
<span>Формально 36 Гб * 1024 = 36 Тб, а не то что записано у вас. Я бы подправил так:
36 Гб = (36 * 1024) Мб = </span>36864 Мб = (36864 * 1024) кБ = и т. д.
п.4 - всё правильно. Разве что первую строку подробней расписать (чтоб у проверяющего не осталось сомнений, что вы понимаете как получилось это число):
4 Мб = (4 * 1024 * 1024) байт = <span>4194304 байт
п.2 - тут есть вопрос. Вы исходите из того что книга на русском языке, без буквы ё, например, без пробелов и без знаков препинания (N=32).
Дальнейшее решение (исходя из этого предположения) - правильное до момента пересчета в килобайты, мегабайты, гигабайты. В килобайтах вы округлили (на мой взгляд применение округления здесь правильно, но есть повод придраться), а дальше неправильно посчитали 274 / 1024 = 0,267, а не 0,7.
"Историческая" мелочь насчет округления: вы округлили по правилам арифметики - до ближайшего целого. Исторически (из-за чего собственно в килобайте 1024 байта, а не 1000) чтобы не делать честное деление делали сдвиг на 10 разрядов вправо (аналог деления на 2^10, то есть на 1024). При сдвиге младшая часть "пропадает", поэтому округление получается всегда в меньшую сторону, а не честное арифметическое.
Однако, из условия задачи никак не следует что типов символов всего 32 (алфавит вообще не оговорен, а значит для решения не хватает данных). В общем ход решения у вас правильный, а вот к начальному предположению можно придраться при желании.</span>
1) 22212 - 8/2=4 4/2=2 2/2=1 12 12/2=6, т.е. 8 преобразуется в 6
2) 1-12-6-3-32-16, т.е 12212
<span>
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
<span>Program konfeti;
Uses
CRT;
Var
x,m:real; {x-цена за килограмм, m-текущая масса}
Begin
CLRSCR;
m:=1.2;
Write('Введите цену за килограмм конфет:');
Readln(x);
While (m<2.1) do
Begin
Writeln('Цена за ',m:0:2,' кг конфет равна ',m*x:0:2,' рублей');
m:=m+0.2
End;
Readln;
End.</span></span>