а именно 65, то сумма чисел на любом двойном листе (65+65=130) одна и та же. Значит, нельзя указать двойного листа, у которого сумма чисел, обозначающая номера страниц наибольшая.
ответ: такого двойного листа в журнале нет. Надеюсь
function LengthLine(xb, yb, xe, ye: double): double; var dx,dy : double; begin // Теорема Пифагора dx := xb-xe; dy := yb-ye; result := Sqrt( dx*dx + dy*dy ); end;
function AreaTriangle(d1, d2, d3: double): double; var p : double; begin // Формула Герона p := (d1+d2+d3)/2; result := Sqrt( p*(p-d1)*(p-d2)*(p-d3) ); end;
procedure SquarePentagon; var x1,x2,x3,x4,x5 : double; y1,y2,y3,y4,y5 : double; //площадь пятиугольника первый второй //длины всех линий между вершинами пятиугольника d12,d23,d34,d45,d51 : double; d13,d14,d24,d25,d35 : double; //площади всех треугольников s123,s234,s345,s451,s512 : double; s134,s245,s351,s412,s523 : double; begin // Задаем координаты пятиугольника x1:=1; y1:=3; x2:=3; y2:=4; x3:=5; y3:=3; x4:=4; y4:=1; x5:=2; y5:=1;
//Площадь пятиугольника без самопересечений, заданного координатами вершин, определяется по общей для многоугольников формуле sp1 := 0.5*( (x1+x2)*(y1-y2) + (x2+x3)*(y2-y3) + (x3+x4)*(y3-y4) + (x4+x5)*(y4-y5) + (x5+x1)*(y5-y1) );
//Площадь пятиугольника теперь можем найти по другому, например по сумме треугольников sp2 := s123 + s134 + s451; //Площади треугольников можно брать любые, главное они не должны пересекаться между собой end;
function Pow(a:real; n:integer):real;
var
r:real;
i:integer;
begin
r := 1;
for i := 1 to n do
r := r * a;
Pow := r;
end;
var
a:real;
n:integer;
begin
write('a = '); readln(a);
write('n = '); readln(n);
writeln(a, ' ^ ', n ,' = ', Pow(a, n));
end.