Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Определение вида треугольника (прямоугольный) по трем сторонам
P.S. нужно составить алгоритм

Ответ оставил Гость

Program outr;
var a,b,c:real;
begin
readln(a,b,c);
writeln(a=,a, b=,b, c=,c);
if (a+c>b) and (a+b>c) and (c+b>a) then
begin
if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=a*a+b*b) then
writeln(треугольник прямоугольный);
end else
writeln(треугольник построить невозможно);
end.