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

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

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

Чем схожи явления природы с макетом?
Чем схожи явления природы с макетом?
Срочно даю много балов На паскале Вычислить элементы последовательности, используя рекурсию. H0(x)=1, H1(x)=2x, Hk+1(x)=2xHk(x)-2kHk-1(x) для k>2.
Срочно даю много балов На паскале Вычислить элементы последовательности, используя рекурсию. H0x1,
1. Даны вещественные числа a,b,c (a≠0). Выяснить имеет ли уравнение ax2+bx+c=0 вещественные корни. Составить программу.
1. Даны вещественные числа a,b,c a0. Выяснить имеет ли уравнение ax2bxc0 вещественные корни.
Выбери из ряда чисел только те, для которых истинно высказывание: НЕ (число<50) И (число чётное). 24, 45, 74, 99, 86, 122, 51
Выбери из ряда чисел только те, для которых истинно высказывание НЕ числоlt50 И число чётное. 24,