Является ли треугольник равнобедренным?Даны три числа-стороны треугольника.Написать программу на языке Паскаль
Var a, b, c: real; {стороны треугольника} begin write ('a='); read(a); write ('b='); read(b); write ('c='); read(c); if (a=b) or (a=c) or (b=c) write ('Treugolnik ravnobedrenniy') else write ('Treugolnik ne ravnobedrenniy'); end.
у тебя тоже есть маленький недочет
а хотя ладно главное что работает
Эта программа и не претендует на идеал. Она написана с расчетом на разбор решения. Я хотел все показать наглядно.
Program test; var a,b,c:real; begin readln(a,b,c); if (a=c) or (a=b) or (c=b) then writeln('Треугольник равнобедренный') else writeln('Треугольник не равнобедренный'); end.
Так то да. Исправлено на real.
так то это надо уточнаять в условии
если не уточнено в условии что могут быть только целочисленные размеры сторон, то почему ты используешь integer?
если не уточнено, значит стороны могут быть любых размеров
как мне удобно так я и делаю, и надо конкретно ставить задачу.
но ведь твоя программа не работает
проверь
ну после того как ты её отредактировал, конечно она работать будет
тебе что то нужно еще ?
нет, спасибо что потратил на меня время