написать в программе паскаль
var a,b,c,eq:integer;
begin
readln(a,b,c);
eq:=0;
if(a>=b+c) then eq:=eq-100 else
if(a=b) then inc(eq);
if(b>=a+c) then eq:=eq-100 else
if(b=c) then inc(eq);
if(c>=a+b) then eq:=eq-100 else
if(a=c) then inc(eq);
case eq of
0: writeln(Разносторонний);
1: writeln(Равнобедренный);
3: writeln(Равносторонний);
else writeln(Не существует);
end
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
