Размещено 3 года назад по предмету
Информатика
от bebido
Var a, b, c: real; Begin Readln (a, b,c ); If a<0 then write (“треугольник не существует'); If a*a + b*b = c*c then writeln (“треугольник прямоугольный') else writeln (“не прямоугольный'); End. Что выведет программа, если a=5,b=3,c=4?