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

marichkakyhar marichkakyhar    1   17.09.2019 20:00    0

Ответы
MariNika2000 MariNika2000  10.09.2020 10:49
А вот так работать будет:

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика