Program n1;
var kord: array[1..6] of real;
st: array [1..3] of real;
i: integer;
begin
i:=1;
while i<=6 do
begin
write('введите координаты точки через пробел: ');
readln(kord[i],kord[i+1]);
i:=i+2;
end;
st[1]:=sqrt(sqr(kord[3]-kord[1])+sqr(kord[4]-kord[2]));
st[2]:=sqrt(sqr(kord[5]-kord[1])+sqr(kord[6]-kord[2]));
st[3]:=sqrt(sqr(kord[5]-kord[3])+sqr(kord[6]-kord[4]));
if (st[1]=st[2]) and (st[2]=st[3]) then write('треугольник равносторонний') else write('треугольник не равносторонний');
end.
354
235, 15
472, 35
417, 165
317, 35
V1 - только это монета встречается во всех взвешиваниях.
1-2-4-3-5 хотя сто процентов гарантировать не могу, путано оно немного
5 5
13 13 х^4
вся формула - у
а1 - первая дробь
а4 - вторая
на каждом шаге с а2 вторая дробь делится на х, а 5/13 не изменяется, поэтому так и получаем