Const n=36; s='Юля'; begin Writeln('Код ',n,' принадлежит символу "',Chr(n),'"'); Writeln('Длина слова "',s,'" в байтах равна ',Length(s)); Writeln('В битах это составляет ',8*Length(s)) end.
Результат Код 36 принадлежит символу "$" Длина слова "Юля" в байтах равна 3 В битах это составляет 24
n=36;
s='Юля';
begin
Writeln('Код ',n,' принадлежит символу "',Chr(n),'"');
Writeln('Длина слова "',s,'" в байтах равна ',Length(s));
Writeln('В битах это составляет ',8*Length(s))
end.
Результат
Код 36 принадлежит символу "$"
Длина слова "Юля" в байтах равна 3
В битах это составляет 24