Чтобы шифровать на лету голос человека методом одноразовых блокнотов, нужен ключ, генерируемый со скоростью 5 кбит/с. пусть лазерные импульсы, следующие с частoтой 1 ггц, содержат 0,1 фотон на импульс; потери в канале 0,3 дб/км; эффективность детекторов – 10%. найдите максимальное расстояние квантового распределения ключа по протоколу bb84 для шифрования голоса. пренебрегите темновым счетом детекторов и возможными атаками евы с разделением числа фотонов.

var

  n: integer;

begin

  readln(n);

  writeln(abs(n)-2);

end.

1) 

var

s: string;

begin

s: ='пробел';

writeln(s);

delete(s,4,1);

insert('д',s,4);

writeln(s);

end.

2)

var

i: integer;

a,b: string;

begin

readln(a);

b: ='';

for i: =1 to length(a) do

b: =b+a[i]+' ';

writeln(b);

end.

3)

var

a: string;

begin

readln(a);

if a[2]=a[4] then writeln('равны')

else  writeln('не равны');

end.

решение для pascal abc

uses graphabc;

vara: integer; beginreadln(a); moveto(a,1); circle(a+a div 2,1,a div 4); lineto(a+a div 4,1); moveto(a+ (a div 4)*3,1); lineto (2*a,1); lineto(2*a,1+a); lineto (a,1+a); lineto (a,1); moveto (a,1+a); lineto (a-(a div 2),1+2*a); lineto(2*a+a div 2, 1+2*a); lineto(2*a,1+a); end.