2. Решить задачу и написать решение на языке Pascal: Определите размер следующего предложения в данной кодировке в битах, байтах, кбайтах: "Но так и быть! Судьбу мою отныне я тебе вручаю." (считаются все знаки, включая пробелы, 1 знак = 1 байт)
Answers & Comments
pacixor
//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.
Answers & Comments
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.