Командный интерфейс - особенность: работает только с командами, нет графики
Графический интерфейс - особенность: графически-обустроенный интерфейс
Объектно-ориентированный интерфейс - особенность: объединение двух графический интерфейсов | преимущества: легок в управлении

0 0

3 года назад

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

alexandr Zinkih

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.

0 0

4 года назад