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

Ответы 6

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

      conrad64
    • 6 лет назад
    • 0
  • var a,b,c: real;beginwrite('Введите значения 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.
    • Автор:

      smokewwrc
    • 6 лет назад
    • 0
  • вот так я сделал
  • Условие b=c в первом if совершенно не обязательно, ведь a=c and a=b автамотически подразумевает условие b=c.
  • а через else, вы правы, делать проше, хоть и не на много, максимум текст программы сокрашается, и время исполнения на сотые доли секунды меньше становится, хотя и при моём решении ответ выдаёт сразу.
    • Автор:

      scoobie
    • 6 лет назад
    • 0
  • var a,b,c:integer;beginwriteln('введите три числа');readln(a,b,c);if ((a<b) and (a<c)) and (b<c) then writeln ('меньшие ', a,'и',b) ;if ((a<b) and (a<c)) and (c<b) then writeln ('меньшие ', a,'и',c) ;if ((c<a) and (c<b)) and (a<b) then writeln ('меньшие ', c,'и',a) ;if ((c<b) and (c<a)) and (b<a) then writeln ('меньшие ', c,'и',b) ;end.
    • Автор:

      demarcus
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years