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

Question

Информатика

Маруся

28 октября, 17:20

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

+5

Ответы (1)

Знаете ответ на вопрос?

Настасия · Answer 1

А вот так работать будет:

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.