// 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}
1 Мегабайт это 1024 Килобайта, 1048576 байт и 8388608 бит
1 Мегабайт это 1/1024 от Гигабайта и 1/1048576 от ТераБайта.
Особенностью единиц измерения в информатике в отличии от привычных единиц (метр - кг и тп) является то, что в единице следующего уровня содержится не 10, 100 или 1000 единиц предыдущего, а 2^10, за исключением перехода от бит к байтам, где в 1 байте содержится 8 бит.
A: 12 (сжатие) + 0.8 * 10 МБайт / 221 (время на передачу сжатого файла) + 3 (распаковка) = 303 675 сек.
Б: 10 МБайт / 221 = 379 575 сек.
А75918
Это как в умножении от перестановки множителей сумма не меняется и также с дробями там идут задачки на сложение и перпедикулярно в этом сложении дроби должны быть высокими как и компоненты сложения