Var
N:integer;
P:real;
Begin
Write('N = ');
ReadLn(N);
P:=1;
For N:= 1 to N do
P:=P*(N*2-1)/(2*N);
WriteLn('P = ',P:0:5)
End.
N = 50
P = 0.07959
N = 100
P = 0.05635
N = 200
P = 0.03987
17 я думаю если не правильно не чего страшного я же учусь в школе
2)а
3)б
4)г
5)а
6)в
7)г
8)б
9)г
10)а
Var a,b:integer;
begin
read(a,b);
a:=a+b;
b:=a-b;
a:=a-b;
writeln('a=',a,' b=',b);
<span>end.</span>
V=K*I=(5*32*48)*16=122880 (бит)=15360 байт= 15,3 кбайт
Ответ: 1