Решите : для кодирования одного пикселя используется 4 байта фотографию размером 1024*2048 пикселей сохранили в виде несжатого файла определите размер получившегося файла в мегабайтах.
Var s,p1,p2:string; a:array['A'..'Z'] of byte; n,i,j,f:integer; c,sim:char; begin readln(n); readln(s); for c:='A' to 'Z' do a[c]:=0; for i:=1 to length(s) do a[s[i]]:=a[s[i]]+1; p1:=''; p2:=''; f:=0; for c:='A' to 'Z' do begin for j:=1 to a[c] div 2 do begin p1:=p1+c; p2:=c+p2; end; if (a[c] mod 2=1)and(f=0) then begin sim:=c; f:=1; end; end; if f=1 then p1:=p1+sim; p1:=p1+p2; writeln(p1); end.
Пример: 6 QAZQAZ AQZZQA
PS. Программа проверялась только для коротких (String) строк. Для длинных нужно использовать AnsiString.
1) Хранение информации -в технике информация хранится на различных носителях к примеру: жёсткий диск или карта памяти или микросхема, чипсет 2) Обработка информация - Обработка информации в технике может проходить посредством: обработки графической информации,к примеру,видеокарта обрабатывает цифровую информацию и воспроизводит её графически на нашем мониторе, дисплее, или телефонная связь,телефон записывает наш звук - речь и кодирует её в спец сигнал и после декодирует в трубке собеседника 3) Передача информации - техническая передача информации происходит посредством телефонной сети (телефонные разговоры), Интернет, Bluetooth, Wi-Fi, IrDA (ИК-порт), NFC и т.д
1. Умножаем 1024 на 2048, чтобы получить количество пикселей:
1024 * 2 048 = 2 097 152 пикс.
2. 1 пикс = 4 байт, значит:
2 097 152 * 4 = 8 388 608 байт
3. Переводим байты в мегабайты:
8 388 608 байт = 8 мбайт
ответ: 8 мбайт.