Переменные A и B
Всё остальное - это просто сообщения, так что за переменные их не считаем
Первая:
<span>var </span>
<span>q,a,b:real; </span>
<span>begin </span>
<span>read(a,b); </span>
<span>q:=sqrt(a*a+b*b); </span>
<span>writeln(q:2:2); </span>
<span>end. </span>
<span>Вторая: </span>
<span>var </span>
<span>a:integer; </span>
<span>begin </span>
<span>read(a); </span>
<span>writeln('The next number for the numder ',a,' is ',a+1); </span>
<span>write('The previaus number for the numder ',a,' is ',a-1); </span>
<span>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>
Магнитная запись была изобретена в начале XX века вроде бы в 1887 году