Даны три натуральных числа.Напишите программу,определяющую,существует ли треугольник с такими длинами сторон.Если такой треугольник существует,то

+ 0 -

Nmamleeva1980

01 авг. 2015 г., 0:22:15 (8 лет назад)

var a,b,c:real;
begin
writeln ('Введите стороны треугольника');
read (a,b,c);
if ((a + b) > c) and ((a + c) > b) and ((b + c) > a) then
begin
if (sqr(a)+sqr(b)=sqr(c)) then writeln ('Это прямоугольный треугольник');
if (sqr(a)+sqr(b)>sqr(c)) then writeln ('Это остроугольный треугольник');
if (sqr(a)+sqr(b)<sqr(c)) then writeln ('Это тупоугольный треугольник');
end
else writeln ('Такого треугольника не существует');
end.

+ 0 -

Almazyn

01 авг. 2015 г., 1:00:18 (8 лет назад)

var a,b,c :integer;
begin
readln(a,b,c);
if (a+b > c) and (b+c > a) and (c+a > b) then
begin
if (a=b) and (b=c) and(c=a) then
writeln('Существует Равносторонний')
else if (a=b)or (b=c) or (c=a) then
writeln('Существует Равнобедренный')
else if(a<>b) and (b<>c) and (c<>a) then
writeln('Существует Разносторонний')
end
else
writeln('Не существует');
end.

+ 0 -

маргарита2602

01 авг. 2015 г., 2:03:57 (8 лет назад)

На каком языке писать

+ 0 -

Svetalays

01 авг. 2015 г., 4:42:48 (8 лет назад)

Хорошо, сделаем)

+ 0 -

дИнКа456

01 авг. 2015 г., 7:40:40 (8 лет назад)

На языке Паскаль

+ 0 -

ярополк

23 апр. 2019 г., 8:40:01 (5 лет назад)

говно на говно равно 2 говна