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.