VAR N,a,b,c:INTEGER;
begin
Readln(n);
a:=(n mod 100)div 10;
b:=(n mod 100)mod 10;
c:=n div 100;
writeln(b,a,c);<span>
end.</span>
Одна буква сообщения равна 1 байту, так как буква состоит из 8значного двоичного кода, 1знак которой равен 1 биту. 8 бит= 1 байт, считаешь кол-во букв в сообщении и умножаешь на 1 байт. получается кол-во байтов, то есть кол-во информации в сообщении
Вот программа, выводит примерно так, как на картинке.
Program p_1;
var
i, j : integer;
begin
for i := 1 to 10 do
begin
for j := 1 to 10 do
write(i * j, ' ');
end;
end.
Переводим 16-ю СС в 8-ю это будет 64 и складываем 27+64=113 в 8-ой СС
<span>X -переменная с реальным типом.А у тебя она integer.
</span>