Напишите программу в Pascal ABC: существует ли треугольник со сторонами а, b, с. Если...

Question

Напишите программу в Pascal ABC: существует ли треугольник со сторонами а, b, с. Если существует, то какой он - тупоугольный, прямоугольный или остроугольный.

Answer 1

Ответ:

var a,b,c: double;

begin

write('Введите a: ');

readln(a);

write('Введите b: ');

readln(b);

write('Введите c: ');

readln(c);

if (a

if (a*a+b*b

writeln('Треугольник существует. Он тупоугольный')

else if (a*a+b*b=c*c) or (a*a+c*c=b*b) or (b*b+c*c=a*a) then

writeln('Треугольник существует. Он прямоугольный')

else writeln('Треугольник существует. Он остроугольный')

end

else  writeln('Треугольник не существует.')

end.