Var
P: real;
begin
readln(P);
writeln(P*P/4/Pi);
end.
Для записи информации о финише одного из 111 спортсменов требуется log(2)111 ≈ 7 бит; для 50 лыжников - 50*7 = 350 бит
<span>var </span><span> a,b,c,D,x1,x2:real; </span>
<span>begin</span>
<span>readln(a,b,c);</span>
<span>D:=b*b-4*a*c;</span>
<span>if D<0 </span><span>then Writeln('Только комплексные корни')</span>
<span>else </span>
<span>begin</span>
<span>d:=sqrt(d);</span>
<span>x1:=(-b+d)/(2*a);</span>
<span>x2:=(-b-d)/(2*a);</span>
<span>WriteLn('x1=',x1);</span>
<span>WriteLn('x2=',x2);</span>
<span>end; </span>
<span>end.</span>
1) 73=1001001 (2) 2)91=1011011 (2)
44=101100 (2) 28=11100 (2)
+1001001 -1011011
101100 11100
--------------- -----------
1110101= 117 (10) 111111=63 (10)
3)27=11011 (2)
5=101 (2)
*11011
101
----------
+ 11011
00000
11011
-------------
10000111=135
4)70=1000110 (2)
7=111 (2)
- 1000110 | 111
111 |-------
------------- 1010= 10 (10)
-111
111
----
0
//Pascal
var d:array[1..9] of real;
i:integer;
begin
for i:=1 to 9 do d[i]:=0.1*i;
end.
# Python
<span>d=[]
for i in range(1,10):
d.append (0.1*i)
</span>