Не понял, зачем тебе переменная m? Вот программа
program num9;
const
N = 5;
var
a: array [1..N] of integer;
i: integer;
begin
for i := 1 to N do
readln(a[i]);
for i := N downto 1 do
if (a[i] < 0) and (sqr(a[i]) < 7000) then
writeln(a[i]);
end.
Ответ:
630
Объяснение:
Если букв 8, для их кодирования достаточно 3 бит (2³ = 8).
В сообщении 21×16×5 = 1680 символов.
Они займут 1680×3 = 5040 бит = 5040/8 = 630 байт
77-->18
77-1=76 (2)
76/2=38 (1)
38/2=19 (1)
19-1=18 (2)
Ответ 2112
Диаграмма (тут надо написать еще что-нибудь , чтобы ответ засчитали)