Вот это строчка if b=c or c=a then, если просто b=c, a не работает program treygolnik; var a, b, c: integer; begin read(a,b,c); if b=c or c=a then begin ...

Вам нужно узнать решение и ответ на вопрос Вот это строчка if b=c or c=a then, если просто b=c, a не работает program treygolnik; var a, b, c: integer; begin read(a,b,c); if b=c or c=a then begin ... и правильно выполнить домашнюю работу по предмету Информатика? Готовое решение смотрите далее.

Вот это строчка if b=c or c=a then, если просто b=c, a не работает
program treygolnik;
var a, b, c: integer;
begin
read(a,b,c);
if b=c or c=a then
begin

writeln('треугольник равносторонний');
end
else
begin
writeln ('треугольник не равносторонний')
end;
end.

А вот так работать будет:
program treygolnik; var a, b, c: integer; begin read(a,b,c); if (b=c) or (c=a) then begin writeln('треугольник равносторонний');
end else begin writeln ('треугольник не равносторонний') end; end.

Понял, скабки наше всё. Спасибо!

Подобные ответы

Помогите пожалуйста!!!Нужно придумать алгоритм обмена значениями без использования 3 вспомогательной переменной
Помогите пожалуйста!!!Нужно придумать алгоритм обмена значениями без использования 3
путь по вершинам и рёбрам графа в который любое ребро графа входит не более одного раза A) сетью Б) семантической сетью В) цепью Г) циклом
путь по вершинам и рёбрам графа в который любое ребро графа входит не более одного раза A сетью Б
Нужна помощь!! Срочно!! Объясните как делать, если можно, то с решением всего!!
Нужна помощь!! Срочно!! Объясните как делать, если можно, то с решением
Составить уравнение, плиз помогите
Составить уравнение, плиз помогите
сделать одну букву из 13 номера
сделать одну букву из 13 номера