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

№1. Вычисление гипотенузы прямоугольного треугольника по двум катетам:

program znanija
var 
  a,b: real;
  c: real; 
begin 
  write ('Введите длины катетов.'); 
  readln (a,b); 
  c:=sqrt(a*a+b*b); 
  writeln ('Гипотенуза треугольника равна:', c); 
end. 

№2. Вычисление площади треугольника по длинам сторон:

program znanija
var
  a, b, c, p, s : real;
begin
  write ('Введите длины сторон.');
  read (a, b, c);
  p:=(a + b + c)/2;
  s:=sqrt(p*(p - a)*(p - b)*(p - c));
  writeln ('Площадь треугольника равна:', s);
end.

1.

#include <iostream>

#include <vector>

using namespace std;

int main(){

int a,b;

cin>>a;

vector<int> v1;

vector<int> v2;

for(int i=0; i<a; i++){

cin>>b;

if (b%2==0) v1.emplace_back(b);

else v2.emplace_back(b);

}

sort(v1.begin(), v1.end());

sort(v2.begin(), v2.end());

for(auto & i: v1) cout<<i<<" ";

}

2.

#include <iostream>

#include <vector>

using namespace std;

int main(){

vector<float> v;

//здесь нам задают массив

sort(v.begin(), v.end());

cout<<v[0]<<v.back();

}

PascalABC.NET 3.7:

##var sumOfAP := function(a1, an, d: real):real → (a1 + an)/2*((an - a1)/d+1);var (a, b) := ReadInteger2('Введите a и b:');var sE := sumOfAP(a + a mod 2, b - b mod 2, 2);var sO := sumOfAP(a + 1 - a mod 2, b - 1 + b mod 2, 2);Print('Результат:', sE - sO)

Пояснение:

Используется формула для нахождения суммы первых n членов арифметической прогрессии:   , где — первый член прогрессии, — последний член, —разность прогрессии.

sumOfAP -- функция расчёта суммы арифметической прогрессии.(a, b) -- вводимые числа.ReadInteger2(prompt) -- выводит приглашение к вводу prompt и возвращает кортеж из двух значений типа integer, введенных с клавиатуры.sE и sO -- "sum of Even" и "sum of Odd", сумма чётных и сумма нечётных соответственно.Print -- выводит значения на экран, после каждого значения выводит пробел.