Даны три натуральных числа. напишите программу в паскале , определяющую , существует ли треугольник с такими длинами сторон. если такой существует , то определите его тип (равносторонний , равнобедренный, разносторонний) ! заранее .
Var a,b,c,k:integer; begin readln(a,b,c); if (a+b>c)and(b+c>a)and(a+c>b) then begin writeln('треугольник существует'); k:=1 end else writeln('треугольник не существует'); if (a=b)and(a=c) and (k=1) then writeln('равносторонний'); if (((a=b)and(a<>c))or((c=b)and(c<>a))or((c=a)and(c<>b)))and (k=1) then writeln('равнобедренный'); if (a<>b)and(c<>b)and(a<>c)and (k=1) then writeln('разносторонний') end.
a,b,c,k:integer;
begin
readln(a,b,c);
if (a+b>c)and(b+c>a)and(a+c>b) then begin
writeln('треугольник существует');
k:=1
end
else writeln('треугольник не существует');
if (a=b)and(a=c) and (k=1) then
writeln('равносторонний');
if (((a=b)and(a<>c))or((c=b)and(c<>a))or((c=a)and(c<>b)))and (k=1) then
writeln('равнобедренный');
if (a<>b)and(c<>b)and(a<>c)and (k=1) then
writeln('разносторонний')
end.