// PascalABC.NET 3.3, сборка 1600 от 23.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
var (A,B):=ReadReal2('Введите значения двух углов в градусах:');
var C:=180-(A+B); // третий угол
Writeln('Третий угол равен ',C);
if not C.Between(1e-16,90.0) then begin
Writeln('Треугольник не существует');
Exit
end;
if (A=B) or (A=C) or (B=C) then Writeln('Треугольник равнобедренный')
end.
Пример
Введите значения двух углов в градусах: 72 39.5
Третий угол равен 68.5
begin
var x:=ReadReal('Введите x:');
var y:=x>=2?x*x+9:1/(x*x*x-4);
Writeln('y=',y)
end.
Пример
Введите x: 1.15
y=-0.403368123834014