10 lines
185 B
ObjectPascal
10 lines
185 B
ObjectPascal
|
##
|
||
|
|
for var i := 3 to 8 do
|
||
|
|
begin
|
||
|
|
var n := integer(10 ** i);
|
||
|
|
var count := 0;
|
||
|
|
loop n do
|
||
|
|
if random.sqr + random.sqr < 1 then count += 1;
|
||
|
|
Writeln(n:10, 4 * count / n:12:8);
|
||
|
|
end;
|