Предмет: Информатика,
автор: sasha109
написать в программе паскаль
Приложения:

Ответы
Автор ответа:
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.
Похожие вопросы
Предмет: Биология,
автор: Аноним
Предмет: Математика,
автор: elenapovelicyna1973
Предмет: Математика,
автор: A124alok
Предмет: Биология,
автор: Аноним
Предмет: Биология,
автор: афіна1999