// PascalABC.NET 3.0, сборка 1088
var
MySet:set of char;
s:string;
i:integer;
begin
Write('Введите строку: '); Readln(s);
for i:=1 to Length(s) do
if s[i] in ['D'..'I'] then Include(MySet,s[i]);
Writeln('Состав множества: ',MySet)
end.
<u><em>Тестовое решение:</em></u>
Введите строку: HAPPY BIRTDAY TO YOU!
Состав множества: {H,I,D}
54 Кбайт = 54*1024*8 бит
Время передачи при скорости 2^13 бит/сек =
54*1024*8/2^13 = 54 сек
Стоимость = 54*5 = 270 коп
Время передачи при скорости 2^10 бит/сек =
54*1024*8/2^10 = 432 сек
Стоимость = 432*5 = 2160 коп
Переплата = 2160-270 = 1890 коп.
Простите-си++ и си только знаю.
Может 2278 байтов??? ?
тогда решение будет такое:
Количество символов тексте: N=2i
i-?
I=K×i → i=I/K
I= 2278 (байтов) = 2278×8 =18224(бит)
К (число символов в сообщении) =10×67+2×(29×67) = 670+3886 = 4556 (символов)
i= 18224(бит) / 4556 (символов) = 4 (бит)
<span>N=2 в 4 степени = 16 (символов)</span>
1) n символов = 2 в степени, равной кол-ву бит, т.е в твоем случае 2 символа.
2) 16 · 1024 · 768 ÷ 8 (\\ в 1 байте 8 бит //) ÷ 1024 (\\ в 1 кб 1024 байт //) = 16*768÷8 = 768·2 = 1536 Кб
3) Пока не помню :)