Вот это строчка 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,
Устройство для ввода информации
Устройство для ввода информации