//Теорема косинусов, PascalABC.NET
begin
var (a, b, alpha) := (3, 4, 90);
var c := Sqrt(a * a + b * b - 2 * a * b * Cos(Pi * alpha / 180));
c.Println
end.
//Теорема косинусов, PascalABC.NET
begin
var (a, b, alpha) := (3, 4, 90);
var c := Sqrt(a * a + b * b - 2 * a * b * Cos(Pi * alpha / 180));
c.Println
end.