для того чтоб найти робота соперника нужен?

#define _USE_MATH_DEFINES

#include <iostream>

#include <math.h>

using namespace std;

int main()

{

 double a, b, alpha, s;             // объявления переменных

 setlocale(LC_ALL, "Russian");

 cout << "\nБольшее основание: ";   // ввод с клавиатуры

 cin >> a;

 cout << "\nМеньшее основание: ";

 cin >> b;

 cout << "\nУгол при большем основании: ";

 cin >> alpha;

 s = a * b / sin(alpha * M_PI / 180);  // расчет площади трапеции , * M_PI / 180 для перевода градусов в радианы

 cout << "\nПлощадь трапеции = " << s;

}

Объяснение:

#define _USE_MATH_DEFINES

#include <math.h>

эти две строки для M_PI, можно просто заменить на 3.14

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 - №1
begin
  var a,b,c:integer;
  Write('Введите три натуральных числа: '); Read(a,b,c);
  var s:=a+b+c;
  var k:=Trunc(sqrt(s));
  if k*k=s then Writeln('Сумма чисел - квадрат ',k)
  else Writeln('Сумма чисел не является квадратом целого')
end.

Тестовое решение
Введите три натуральных числа: 13 4 8
Сумма чисел - квадрат 5

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 - №2
begin
  var a,b,c:integer;
  Write('Введите три натуральных числа: '); Read(a,b,c);
  var s:=power(a*b*c,1/3);
  if s=int(s) then Writeln('Среднее геометрическое - целое число')
  else Writeln('Среднее геометрическое - нецелое число')
end.

Тестовое решение
Введите три натуральных числа: 16 8 15
Среднее геометрическое - нецелое число