Паскаль. Вычисляет НОД для любого кол-ва чисел
Объяснение:
function Nod(a,b:integer):integer;{определение НОД двух чисел}
begin
while a<>b do
if a>b then a:=a-b else b:=b-a;
Nod:=a;
end;
var
a: array of integer;
n, i: integer;
k: integer;
begin
WriteLn('*** Определение НОД нескольких чисел ***');
Write('Введите кол-во чисел N = '); ReadLn(n);
SetLength(a, n + 1);
WriteLn('Введите числа: ');
for i := 1 to n do
begin
Write(i,'-e число: '); ReadLn(a[i]);
end;
WriteLn;
k := Nod(a[1], a[2]);
for i := 3 to n do k := nod(k, a[i]);
WriteLn('Общий НОД всех чисел = ', k);
end.
using namespace std;
int main(){
int Angle1= 0, Angle2 = 0, Angle3;
cin >> Angle1;
cin >> Angle2;
Angle3 = 180 - (Angle1 + Angle2);
if ((Angle1 == 90) | (Angle2 == 90) | (Angle3 == 90))
{
cout << "Pryamougolniy" << endl;
}
if ((Angle1 > 90) | (Angle2 > 90) | (Angle3 > 90))
{
cout << "Tupougolniy" << endl;
}
if ((Angle1 == Angle2) && (Angle2 == Angle3))
{
cout << "Ravnostoronniy" << endl;
}
if (((Angle1 == Angle2) & (Angle2 != Angle3)) | ((Angle1 == Angle3) & (Angle1 != Angle2)) | ((Angle2 == Angle3) & (Angle2 != Angle1)))
{
cout << "Ravnobedrenniy" << endl;
}
system("pause");
}