Условие попадания точки M(x,y) в треугольник с указанными координатами вершин можно описать системой неравенств:
Если положить в методе Монте-Карло x∈(-1,1), y∉(0,1) для вещественных х,y,
то площадь треугольника можно найти, как площадь прямоугольника, представленного в задании (она равна 2), умноженную на отношение количества точек, попавших в контур треугольника, к общему количеству точек.
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
var n:=100000;
var k:=Range(1,n).Select(e->Rec(2*Random()-1,Random())).
Where(e->(e.Item2>=0) and (e.Item2<=e.Item1+1) and
(e.Item2<=1-e.Item1)).Count;
Writeln(2*k/n:0:3)
end.
<u><em>Тестовое решение:</em></u>1.001
Var A,Min,N:integer;
Begin
Min:=30001;
Read(N);
For N:= 1 to N do
Begin
Read(A);
if (A mod 7 = 0)and(A < Min) then Min:=A;
End;
Write(Min)
End.
Просто перезагрузи комп, или ноут.Если не уйдёт то нужно переустановить виндоус, и сбросить всё к заводчикм настройкам
1 кбайт = 8000 бит
0.5 кбайт = 1 кбайт / 2 = 4000 бит