#include "stdafx.h"
#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL, "rus");
float a, b, c, x1, x2;
cout << "Введите основную сторону: \n";
cin >> a;
cout << "Введите две других: \n";
cin >> b;cin >> c;
cout << "Введите углы: \n";
cin >> x1; cin >> x2;
if (a*a == b*b + c*c) cout << "Прямоугольный\n";
if (a*a < b*b + c*c) cout << "Остроугольный\n";
if (a*a > b*b + c*c) cout << "Тупоугольный\n";
if (x1 == x2) cout << "Равнобедренный\n";
if (a == b && b == c) cout << "Равносторонний \n";
system("pause");
return 0;
}
<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var max:=a.Max;
a:=a.Where(t->t<>max).ToArray; a.Println
end.
<u>Пример</u>
n= 15
-24 35 -41 14 18 -27 10 48 20 30 -42 -10 -32 -22 14
-24 35 -41 14 18 -27 10 20 30 -42 -10 -32 -22 14
<em>program qq;
</em>
<em>var x,a,y:real;
</em>
<em>Begin
</em>
<em> writeln('Vvedi a');
</em>
<em> readln(a);
</em>
<em> writeln('Vvedi x');
</em>
<em> readln(x);
</em>
<em> //a:=0.5;
</em>
<em> // x:=4;
</em>
<em> y:=sqr(cos(x+a))/abs(x+a)+sin(x+a)*(x+a);
</em>
<em> writeln(y);
</em>
<em>end.</em>
4.
Условие: время >=19.00ч.
Действие: «Зайти домой» или «Играть
дальше»
5.
Циклический:
6.
Входные данные: а, b, c
Результат: p = 10
Var a,b,c,max: Integer;
begin
writeln('Введите a,b,c');
readln(a,b,c);
max:=a;
if max<b then max:=b;
if max<c then max:=c;
writeln('Наибольшее число: ',max);
end.