Question

Данны размеры сторон тругольника ю Вывести на экран при помощи function или procedure(на выбор) слово истинно если треугольник равнобедренный и ложно если треугольник не равнобедренный.

Answer 1

var

  a, b, c: real;

procedure Traingle(a, b, c: real); {Процедура с входными параметрами - размерами сторон}

begin

  if (a = b) or (a = c) or (b = c) then writeln('Истинно') {Если хотя бы две из трех сторон равны, то треугольник равнобедренный}

  else writeln('Ложно');

end;

 

begin

  writeln('Введите стороны треугольника a, b, c');

  readln(a, b, c);

  Traingle(a, b, c);

end.