Question

2. Решить задачу и написать решение на языке Pascal: Определите размер следующего предложения в данной кодировке в битах, байтах, кбайтах: "Но так и быть! Судьбу мою отныне я тебе вручаю." (считаются все знаки, включая пробелы, 1 знак = 1 байт)

Answer 1

//Pascal
var
  S: string;
  bits, Bytes: integer;
  KBytes: real;
begin
  S := 'Но так и быть! Судьбу мою отныне я тебе вручаю.';
  writeln(S);
  Bytes := Length(S);
  bits := Bytes * 8;
  KBytes := Bytes / 1024;
  writeln('бит = ', bits);
  writeln('Байт = ', Bytes);
  writeln('КБайт = ', KBytes);
end.