Написать программу для турбо паскаля. условие: по 3 введеным сторонам треугольника определить является ли треугольник прямоугольным.

216

431

Посмотреть ответы 2

Ответы на вопрос:

ZigZag1983

Информатика

4,8(67 оценок)

Program treug; var a,b,c: integer; begin writeln ('сторона 1='); readln (a); writeln ('сторона 2='); readln (b); writeln ('сторона 3='); readln (c); if ((a^2=b^2+c^2)or(b^2=a^2+c^2)or(c^2=a^2+b^2)) then writeln ('треугольник прямоугольный'); else writeln ('треугольник не прямоугольный'); end.