Автор Ольга Журкина задал вопрос в разделе Другие языки и технологии
Ребят, помогите написать программу для Паскаля! и получил лучший ответ
Ответ от Jurii[гуру]
var a, b, c : Word;
begin
Write('Введите три натуральных числа: '); ReadLn(a, b, c);
if (a = 0) or (b = 0) or (c = 0) then begin WriteLn('Натуральное число больше 0!'); Halt; end;
if a > b then begin a := a + b; b := a - b; a := a - b; end;
if b > c then begin b := b + c; c := b - c; b := b - c; end;
if a > b then begin a := a + b; b := a - b; a := a - b; end;
if a+b < c then WriteLn('Такого треугольника не существует. ')
else if a+b = c then WriteLn('Треугольник вырожден в прямую. ')
else if a*a+b*b = c*c then WriteLn('Прямоугольный треугольник. ')
else if a*a+b*b < c*c then WriteLn('Тупоугольный треугольник. ')
else WriteLn('Остроугольный треугольник. ')
end.
var x,y,z:real; begin writeln ('Сторона 1 = '); readln (x); writeln ('Сторона 2 = '); readln (y); writeln ('Сторона 3 = '); readln (z); if (x+y > z) and (x+z > y) and (y+z > x) then begin writeln ('Треуголь