1)Даны 3 угла. Определить существует ли такой треугольник. И если да то является ли он...

Question

1)Даны 3 угла. Определить существует ли такой треугольник. И если да то является ли он прямоугольным.
2) Среди первых n натуральных чисел определить сколько из них кратных 4.
Написать программы в Паскале.

Answer 1

1)

Var
   A,B,C:real;
Begin
WriteLn('Введите значения углов в градусах:');
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
Write('C = ');ReadLn(C);
if A+B+C=180 then
   Begin
   WriteLn('Существует');
   if (A = 90)or(B = 90)or(C = 90) then Write('Является прямоугольным')
   else Write('Не является прямоугольным')
   End
else WriteLn('Не существует')
End.



2)

Var n:integer;
Begin
Write('n = ');ReadLn(n);
WriteLn('Количество чисел, кратных четырём на отрезке [1,',n,']: ',n div 4);
End.