<span>Если я понял о чем ты, то вот:
var
x, y, b: integer; // описание переменных
begin // начало программы
write ('y = x*b ');
read(x,b); // ввод переменной x,b
if x > 0 </span>// проверка, х больше от 0?<span>
then
y := y * b // если да, то исполняется это
else </span><span>
if x = 0 then </span>//если нет, то это(тут опять же проверка, х равно 0?)<span>
y := 0 // если да то "y" присваивается 0
else
y := abs(x); // если нет то "y" присваивается значение модуль "х"
writeln ('y = ', y); // выводятся значения,
end. // завершение программы</span>
104 * 1024 = 106496 бит
106496 / 8192 = 13 бит / символ
2^13 = <span>8192
</span>2^3 = 8 -> всего 8 различных букв
дальше я не вполне уверен, но...
64 различных варианта, формула для количества вариантов
различных букв^длина слова = количество слов
8^x = 64
<span>x = 2
</span>
160*32*44 = 225280 символов
<span>предположим, это кодировка 1 байт/символ
тогда 225280 байт = 220 Кбайт
если бы было 2 байт/символ, было бы 220 * 2 Кбайт, а такого варианта нет, поэтому: </span> 220 Кбайт<span>
</span>
Нужно написать программу. Держи:
П0 1 0 / {x} 1 0 * ИП0 1 0 0 / - x=0 18 1 С/П 0 С/П
Выводит 1, если совпадают, и 0, если нет.