Program n1;
var i: integer;
begin
for i:=30 downto 10 do writeln(i);
end.
var a:char;
k:integer;
s:string;
begin
writeln('Введите букву: ');
readln(a);
k:=ord(a);
writeln('Код буквы ',a,' = ',k);
s:=chr(k-1)+chr(k)+chr(k+1);
writeln(s);
end.
V = K * I, где
V - объем.
K - количество символов в сообщении.
I - количество бит на символ.
Найдем K, посчитав все символы, включая буквы, пробелы, знаки припенания.
Дано:
K = 33 символа.
I = 16 бит.
Найти V.
V = K * I = 33 * 16 = 528 бит = 66 байт ≈ 0,06 кбайт.
В восьмеричной системе может быть использовано 8 цифр. На первое место можно поставить все, кроме 0. На остальные все. Таким образом: N=7*8*8=448 чисел