//ToWords разделяет строку с помощью разделителя (пробел по
//умолчанию) и возвращает массив строк.
var
b: string;
strings: array of string;
begin
readln(b);
strings := b.ToWords(' ');
for var i := 0 to length(strings) - 1 do
writeln(strings[i]);
end.
//Пример:
//Ввод:
q wer ty
//Вывод:
q
wer
ty
Объяснение:
1 задание это означает что он будет состоять из 352 строк
2 бит
3 64000 пикселя
4. 1,92 мегапикселя
Для текста конечно меньше, а для картинки нужно писать на пиксель чтото типа : RGB("2")("2")("3")
А для текста например: а
Paint
<span>который входит в состав MS Windows</span>
Вопрос один
Какое число ты загадал?
Если информация от 16 до 32 то
32 - 16 + 1 = 17 разных значений
ln(17)/ln(2) при округлении даст 5
5 бит