var s:string;
begin
readln (s);
writeln (s,'=',Length(s));
s:=s+'+'+s;
writeln (s,'=',Length(s));
end.
Ответ: letter.docx и background.gif
Лучше всего сжимаются текстовые и графические файлы, практически не сжимаются файлы архивов и исполняемые файлы.
Вроде вывод и ввод получается спирт
Разберем оператор по шагам. Обозначим Т - промежуточный результат операции.
y:= round(y*(7 div 4) mod 7/3)/y - trunc(0.724);
1) T:= 7 div 4 ⇒ T:=1, тип T целочисленный.
2) T:=y*T, тип Т определяется типом y.
3) T:=T mod 7, в операции mod операнды могут быть только целочисленными, следовательно, тип у в 2) может быть только целочисленным, иначе мы получим на данном шаге ошибку. Результат операции - Т целочисленного типа.
4) T:=T/3; T - вещественного типа.
5) T;=round(T); T - целочисленного типа.
6) T:=T/y, T - вещественного типа.
7) Trunc(0.724)
вернет 0 целочисленного типа.
8) Т:=T-0 не изменит значения и типа Т: Т по-прежнему остается вещественным.
9) y:=T; для корректного присваивания y должен иметь вещественный тип, но это, как указано в 3), вызовет ошибку при выполнении 2).
Итог: оператор недопустим и будет отмечен ошибочным при компиляции.
Объём переданного файла составляет 28800 бит/сек * 1 мин 20 сек = 28800 бит/сек * 80 сек = 2304000 бит
Изображение состоит из 600 * 400 = 240000 пикселей, значит, на 1 пиксель отводилось 2304000/240000 = 9,6 бит
Получилось нецелое количество бит. Это может означать, например, что использовалось какое-то сжатие данных: при кодировании, принятом в школьных задачах, на каждый пиксель отводится одинаковое целое число бит.
Оценить количество цветов в палитре можно по-разному:
– округлить количество бит на пиксель вниз (9 бит), тогда в палитре 2^9 = 512 цветов
– не округлять, в палитре 2^9,6 = 776 цветов
– округлить вверх (10 бит), в палитре 2^10 = 1024 цвета