Ответы
Ответ дал:
0
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.
Вас заинтересует
1 год назад
1 год назад
7 лет назад
7 лет назад
9 лет назад
9 лет назад
9 лет назад