Работа 3.2 Упр.1 ГДЗ Семакин 10 класс (Информатика)

Треугольник со сторонами $$a$$, $$b$$, $$c$$ является равносторонним.

Чтобы проверить, является ли треугольник равносторонним, нужно убедиться, что все его стороны равны:

$$a=b \land a=c$$

В программе вводятся значения a, b, c, после чего вычисляется логическое выражение и выводится его значение.

var a, b, c: integer;
begin
  writeln(‘Введите стороны треугольника’);
  readln(a, b, c);
  writeln(‘a=’, a, ‘ b=’, b, ‘ c=’, c);
  f := (a=b) and (a=c);
  write(f);
end.

Ответ

Программа проверяет, равны ли все три стороны треугольника, и выводит True, если треугольник равносторонний, иначе — False.