А) var s:string; mas:array ['a'..'z'] of longint;{индексы элементов соответствуют латинице} c:char; i:longint; begin read(s); for c:='a' to 'z' do{заполнение нулями элементов массива, для запоминания количества элементов в латинице} mas[c]:=0; for i:=1 to ord(s[0]) do{пробегаем по всей строке ord(s[0]) это количесвто элементов в строке (только паскаль)} mas[s[i]]:=mas[s[i]]+1; for c:='a' to 'z' do{пробегаем по массиву значений и выводим только неповторяющиеся} if(mas[c]=1) then writeln(c); end.
1) Определяем общее количество бит: 16 х 640 х 480 = 4 915 200 С учетом того, что в байте 8 бит, а 1 КБ=1024 Б получим 4 915 200 / 8 / 1024 = 600 (КБ)
2) Определяем общее количество бит с учетом того, что в палитре True Color для цвета отводится 24 бита: 1600 х 1200 х 24 = 46 080 000 (бит). После преобразования файла для Интернет он будет представлен в восьмибитной палитре ( 256 = 2⁸ ) и займет объем 1400 х 900 х 256 = 10 080 000 (бит). Разница в объемах составит 46 080 000 - 10 080 000 = 36 000 000 бит. С учетом того, что в байте 8 бит, а в мегабайте 1024 х 1024 байт получим, что пространство на диске сократиться на 36 000 000 / (8 х 1024 х 1024) ≈ 4.29 (МБ)
не прикрепил фото
измени вопрос