ED(16)+20(8)=100001101(2) Здесь таких чисел нет, все меньше
Var s:string; i:integer; m:set of char;
begin
writeln('Введите слово:');
readln(s);
m:=[];
i:=1;
while i<=length(s) do
if s[i] in m then delete(s,i,1) else begin m:=m+[s[i]]; i:=i+1; end;
writeln(s);
end.
Пример:
Введите слово:
электрификация
электрифаця
Синий треугольник, оранжевый круг, жёлтый квадрат, (голубой), жёлтый квадрат, синий треугольник, , зелёный треугольник
1. Потому что нет денег на покупку.
2. Потому что негде купить, или это слишком сложно
3. Потому что жалко денег.
4. Даже не подозревают, что нарушают какие-то там права.
Находим сколько бит информации несет 1 цвет по формуле Хартли N=2^i => 256=2^8 => 8 бит
Формула объема V=I*X*Y => 8*1280*1024=10485760 бит переведем в байты, т.е. разделим на 8=1310720 байт
правильный ответ Г