begin for i: byte := 0 to 2 do readln(a[i * 2 + 1], a[i * 2 + 2]); q := sqrt(sqr(a[1] - a[3]) + sqr(a[2] - a[4])); b := sqrt(sqr(a[5] - a[3]) + sqr(a[6] - a[4])); c := sqrt(sqr(a[5] - a[1]) + sqr(a[6] - a[2])); if ((q + b > c) and (q + c > b) and (b + c > q)) then begin if (max(q, max(b, c)) = sqrt(sqr(min(q, min(b, c))) + sqr(min(q, max(b, c then writeln('Прямоугольный!'); writeln(String.Format('Геом. центр - ({0}; {1})', (a[1] + a[3] + a[5]) / 3, (a[2] + a[4] + a[6]) / 3)); end else writeln('Нет такого ▲'); end.
var a: array[1..n, 1..n] of integer; i, j: integer; HasNull: Boolean;
begin Randomize; writeln('Исходная матрица'); HasNull := False; for i := 1 to n do begin for j := 1 to n do begin a[i, j] := Random(100) - 50; if a[i, j] = 0 then HasNull := True; write(a[i, j]:5); end; writeln end; if HasNull then writeln('Матрица имеет нулевые элементы') else writeln('Матрица не имеет нулевых элементов') end.
a: array [1..6] of real;
q, b, c: real;
begin
for i: byte := 0 to 2 do
readln(a[i * 2 + 1], a[i * 2 + 2]);
q := sqrt(sqr(a[1] - a[3]) + sqr(a[2] - a[4]));
b := sqrt(sqr(a[5] - a[3]) + sqr(a[6] - a[4]));
c := sqrt(sqr(a[5] - a[1]) + sqr(a[6] - a[2]));
if ((q + b > c) and (q + c > b) and (b + c > q)) then
begin
if (max(q, max(b, c)) = sqrt(sqr(min(q, min(b, c))) + sqr(min(q, max(b, c then
writeln('Прямоугольный!');
writeln(String.Format('Геом. центр - ({0}; {1})', (a[1] + a[3] + a[5]) / 3, (a[2] + a[4] + a[6]) / 3));
end
else
writeln('Нет такого ▲');
end.