2. Решить задачу и написать решение ** языке Pascal: Определите размер следующего...

Question

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

Answer 1

Var t: string;
b,bit: integer;
kb: real;
begin
t:='Но так и быть! Судьбу мою отныне я тебе вручаю.';
b:= length (t);
bit:= b*8;
kb:=b/1024;
writeln (bit,' бит');
writeln (b,' б');
writeln (kb,' Кб');
end.