Type piece = record value: string[10]; count := 1; end;
var pieces: array[1..200]of piece; i, j, n, pieces_n: integer; s, p: string; found: boolean; imax:=1;
begin read(s); read(n); for i := 1 to length(s) - n + 1 do begin p := Copy(s, i, n); found := false; for j := 1 to pieces_n do if pieces[j].value = p then begin pieces[j].count := pieces[j].count + 1; found := true; if pieces[imax].count < pieces[j].count then imax := j; break; end; if not found then begin pieces_n := pieces_n + 1; pieces[pieces_n].value := p; end; end;
1. Определим объем памяти, который занимает одна страница. Символ текста кодируется 16 битами или 16/8=2 байтами. 1024 символа займут 1024х2=2048 байт. Рисунок состоит из 256х128=32768 точек, а цвет каждой точки кодируется 16 битами или 16/8=2 байтами. Следовательно, рисунок займет 32768х2=65536 байт. Итого страница займет 2048+65536=67584 байт 2. Определим объем книги. В книге 512 страниц, поэтому её объем составит 512х67584=34603008 байт. Используем для ответа более крупные единицы. 34 603 008 / 1 024 = 33 792 Кбайта 33 792 / 1024 = 33 Мбайта ответ: книга имеет объем 33 МБ
На улице дождливая погода