1)Найти два меньших числа из трех. 2)Определить , является ли треугольник со сторонами...

Question

1)Найти два меньших числа из трех.
2)Определить , является ли треугольник со сторонами a,b,c
а) равносторонним
б) равнобедренным
в) разносторонним

Comments

а язык?

---

паскаль

Answer 1

Var a,b,c:integer;
begin
writeln('введите три числа');
readln(a,b,c);
if ((aif ((aif ((cif ((cend.

Comments

спасибо чувак)

---

progmaster не растраивайся

---

да не успел ;c

---

если не трудно, не отметишь мой ответ как лучший? :D

---

кстати, в первом условии, как правило, должно быть еще и b=c

---

пишешь не плохо) только, вместо еще одного условия (разносторонний), что бы не создавать лишнюю нагрузку, хоть и мелкую, но все же.... через else же проще сделать....

---

var a,b,c: real;
begin
write('Введите значения a,b,c(основание): '); readln(a,b,c);
if((a=b) and (a=c) and (b=c)) then writeln('Треугольник,очевидно, равносторонний')
else if((a=b) or (a=c) or (c=b)) then writeln('Треугльник равнобедренный')
else writeln('Треугольник разносторонний');
end.

---

вот так я сделал

---

Условие b=c в первом if совершенно не обязательно, ведь a=c and a=b автамотически подразумевает условие b=c.

---

а через else, вы правы, делать проше, хоть и не на много, максимум текст программы сокрашается, и время исполнения на сотые доли секунды меньше становится, хотя и при моём решении ответ выдаёт сразу.