12 250 байт
Объяснение:
I = K * i, где
I - это информационный объём текста (размер файла, содержащего сообщение)
K - количество символов в тексте
i - информационный вес одного символа (число бит, используемых для записи одного символа)
N = 2^i, где
N - мощность алфавита (количество символов в алфавите)
i - информационный вес одного символа (число бит, используемых для записи одного символа)
^ - знак степени
Дано:
N = 256 символов
K = 5 страниц * 35 строк * 70 символов = 12 250 символов
Найти:
I
256 = 2^i
256 = 2⁸
i = 8 бит = 1 байт
I = 12 250 * 1 = 12 250 байт ≈ 11,963 Кбайт
1 байт = 8 бит
1 Кбайт = 1 024 байт
Первое :
var
i, num, nums2, nums3, nums4, nums5: Integer;
begin
for i := 1 to 20 do
begin
ReadLn(num);
if num = 2 then
nums2 := nums2 + 1
else if num = 3 then
nums3 := nums3 + 1
else if num = 4 then
nums4 := nums4 + 1
else if num = 5 then
nums5 := nums5 + 1 ;
end;
WriteLn('Количество двоек - ', nums2);
WriteLn('Количество троек - ', nums3);
WriteLn('Количество четвёрок - ', nums4);
WriteLn('Количество пятёрок - ', nums5);
end.
Второе:
var
i, height, minHeight, maxHeight: Integer;
totalHeight: Real;
begin
for i := 1 to 20 do
begin
ReadLn(height);
if (i = 1) or (height < minHeight) then
minHeight := height ;
if (i = 1) or (height > maxHeight) then
maxHeight := height ;
totalHeight := totalHeight + height;
end;
WriteLn('Максимальный рост - ', maxHeight);
WriteLn('Минимальный рост - ', minHeight);
WriteLn('Средний рост - ', Round(totalHeight / 20.0))
end.
