1. 1 Мбайт=1024кбайт=1024*1024байт=1024*1024*8бит.
2. 1 символ 16 символьного алфавита можно зашифровать 4 битами (2^4=16)
3. 1/16Мбайта = 1024*512бит
4. Итого получаем 1024*512/4=1024*128=131072
Получается сообщение содержит 131072 символа.
16 бит - это 16/8 = 2 байта - именно столько занимает один символ.
Тогда страница займет 32×64×2 = 4096 байт = 4096/1024 = 4 Кбайта.
Если объем текста 48 Кбайт, то в нем 48/4 = <u>12</u> страниц.
Именно столько листов бумаги и понадобится при односторонней печати. При двухсторонней - 6 листов.
var x,y:real;
begin
y:=1;
write('x=');
read(x);
if (x<>0) and (sqr(x)>= (3/8))then
begin
y:=sqrt((8*sqr(x)-3)/(abs(2*sqr(x)*y)))-((sqr(x+y))/(2*x*y));
write('y=',y);
end
else write('error');
end.
program raf105;
var a,b,sum,nsum,nkol:integer;
sari:real;
begin
write('Введите число: ');
readln(a);
while a<>0 do
begin
b:= a mod 10;
a:= (a-b) div 10;
sum:= sum+b;
if (b mod 2)<>0
then
begin
nsum:= nsum+b;
nkol:= nkol+1;
end;
end;
sari:= nsum/nkol;
writeln('Сумма всех цифр в числе: ',sum);
writeln('Среднее арифметическое нечётных цифр в числе: ',sari);
end.
<u><em>Язык программирования PascalABC</em></u>
<span><span><span><span>
Program BS;var P,X:Real;BeginP:=1;X:=1;While X<=5 dobeginX:=X+0.5;P:=P*X;End;Writeln(P);end.
</span></span></span></span>