Составить программу идентификации треугольника по сторонам a, b, с.

[dadka]

Здравствуйте Уважаемые программисты!

Требуется ваша помощь:

Нужно написать прграмму (среда разработки Паскаль):

Составить программу идентификации треугольника по сторонам a, b, с. Определяемое свойство: прямоугольный или непрямоугольный. Значения сторон a, b, с вводится пользователем, причём при вводе третьей стороны нужно чтобы её размер не превышал суммы и не был меньше модуля разности первых двух сторон.

помогите PLease!

[6AZblJlb]

возможно так

var
a,b,c : longint;
begin
readln(a,b,c);
if (a+b>=c) and (c>abs(b-a))  then begin
       if a*a+b*b = c*c then writeln('Praymougolnyi')
       else                  writeln('Ne praymougolnyi');
       end

else
  writeln('C- ne pralno vvedena');
end.

[AlexanderPeshkov]

var
a,b,c : longint;
begin
repeat
readln(a,b,c);
if (a+b>=c) and (c>abs(b-a)) then begin
if a*a+b*b = c*c then writeln('Praymougolnyi')
else writeln('Ne praymougolnyi');
end

else
writeln('C- ne pralno vvedena');
until (a+b>=c) and (c>abs(b-a));
end.

так будет правильнее)

[dadka]

Спасибо! Очень Благодарен! всё работает!

[alex_fcsm]

Посмотри тут

uses crt;
var a,b,c:integer;
    flag:boolean;
begin
flag:=false;
repeat
Writeln('Input a,b,c');
readln(a,b,c);
if (a+b>c)and(c>abs(b-a)) then
  begin
   flag:=true;
   if (sqr(a)=(sqr(b)+sqr(c)))or(sqr(b)=(sqr(a)+sqr(c)))or(sqr(c)=(sqr(a)+sqr(b))) then writeln('Prymoug')
       else Writeln('NO');
  end
 else Writeln('Error! Try again');
until flag;
end.