Какой результат появится на экране после выполнения следующего фрагмента программы? A:=1;
if A<=1 then writeln(A+1)
else writeln(A–1);

var

v,p,n,h,d: real;

begin

read(p,n,h,d);

v: =3*p*n/10/10/10*h*d*d;

end.

800 * 10 = 8000 символов било передано

5000 байт = 5000 * 8 = 40000 бит было передано

40000 : 8000 = 5 бит приходится на кодирование 1 символа

n = 2 ^ i

n = 2^5 = 32 символа размер алфавита.