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
Ответ будет 4 в степени 3 = 64
К архиваторам. Это лучший и бесплатный архиватор
Смотри в одном мегабайте - 1048576 байтов,
Значит в 189 мегабайтах -198180864 байта
Ответ:
<h3>Мы живем в мире, где массовая и целенаправленная слежка, нападения на людей и гражданское общество, притеснения членов уязвимых групп в цифровой среде и широкий спектр различных мнений и их выражение приводят к серьезным последствиям, в том числе к помещению людей под стражу, физическим нападениям и даже убийствам.</h3>