Вот это строчка 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.

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

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

помогите 4 и 5 пожалуйста очень надо !
помогите 4 и 5 пожалуйста очень надо
Дано натуральное число n. Вычислить произведение его делителей Блок схемы желательно)
Дано натуральное число n. Вычислить произведение его делителей Блок схемы желательно
Удалить из строки все символы «S» стоящие как после «.»,так и после «;»,подсчитать общее количество символов «А» и «B»
Удалить из строки все символы S стоящие как после .,так и после ,подсчитать общее количество