PYTHON 3 У Арлана есть N шариков красного и синего цвета. Каждый шарик имеет свой вес Mi. Для удобства вес красных шариков будем обозначать положительным числом, а вес синих шариков – отрицательным. Вес шарика не может быть нулевым. Арлан хочет украсить новогоднюю ёлочку парами шариков синего и красного цвета одного веса ему определить, сколько пар можно составить из имеющихся шариков.

Входные данные

В первой строке дано натуральное число N, не превосходящее 100000.

Во второй строке даны N целых чисел Mi. Все числа по модулю не превышают 100.

Выходные данные

Выведите одно число – количество возможных пар.

👇

Открыть все ответы

Ответ:

зомб1

18.11.2022

Компилятор — это программа, превращающая исходный текст, написанный на языке программирования, в машинные инструкции.

По мере преобразования текста программы в машинный код, компилятор может обнаруживать ошибки (синтаксиса языка, например). Поэтому все проблемы забытых точек с запятыми, забытых скобок, ошибок в названиях функций и переменных в данном случае решаются на этапе компиляции.

При компиляции весь исходный программный код (тот, который пишет программист) сразу переводится в машинный. Создается так называемый отдельный исполняемый файл, который никак не связан с исходным кодом. Выполнение исполняемого файла обеспечивается операционной системой. То есть образуется, например, .EXE файл.

Примеры компилируемых языков: C, C++, Pascal, Delphi.

4,5(78 оценок)

Ответ:

nastyaborisova13

18.11.2022

Program Project1;
const
eps = 1e-10;
var
a:array [1..3] of Real;
i: integer;
max: Real;
max_i: integer;
sqr_h: Real;
sqr_k: Real;
sp: Real;
begin
Write('Введите длину сторон треугольника: ');
Readln(a[1],a[2],a[3]);
max:=a[1];
max_i:=1;
for i := 2 to 3 do
    if a[i]>max then
    begin
      max:=a[i];
      max_i:=i;
    end;
sqr_k := 0;
for i:=1 to 3 do
    if i<>max_i then
      sqr_k:=sqr_k+sqr(a[i]);
sqr_h:=Sqr(max);
if (Abs(sqr_k-sqr_h)<eps) then
begin
    Writeln('Треугольник прямоугольный');
    sp:=1;
    for I := 1 to 3 do
      if i<>max_i then
        sp:=sp*a[i];
   sp:=sp/2;
    Writeln('Площадь треугольника = ',sp:0:5);
end
else
begin
    Writeln('Треугольник не прямоугольный');
    sp:=0;
    for I := 1 to 3 do
      sp:=sp+a[i];
    Writeln('Периметр треугольника = ',sp:0:5);
end;
Readln;
end.

)) 1. составьте алгоритм, определяющий является ли треугольник прямоугольным, если заданы три сторон