Составьте алгоритм, с которого можно определить, является ли треугольник с заданными длинами сторон a, b, c равносторонним

Program v; var a,b,c: integer; begin read(a,b,c); if a=b then if b=c then writeln('a=b=c') else writeln ('треугольник не равносторонний'); reason; end.

Начало

|

a , b , c

|

d = b * b - 4 * a * c

|

- D > = 0 +

| |

ДКН X1 =(-b + SQR(D)) / (2*a)

| |

| X2 =(-b - SQR(D)) / (2*a)

| |

| X1 , X2

| |

| |

| |

| Конец |

Вот и все

Программа

PRINT “Количество корней квадратного уравнения“

INPUT “Ввести a, b, c: “, a, b, c

d = b * b – 4 * a * c

IF d >= 0 THEN

IF d > 0 THEN PRINT “2 разных корня“ ELSE PRINT “2 одинаковых корня“

ELSE PRINT “Действительных корней нет“

словесная программа

Начало

Ввод a,b,c

d = b * b - 4 * a * c

Нет D 》=0 Да

X1 =(-b + SQR(D)) / (2*a)

X2 =(-b - SQR(D)) / (2*a)

X1 , X2

ДКН

Конец

Объяснение:

это правильный ответ

ответ:1) (1 б.) Верные ответы: 3;

2) (1 б.) Верные ответы: 4;

3) (1 б.) Верные ответы: 1; 2;

4) (1 б.) Верные ответы: 3;

5) (1 б.) Верные ответы: 1;

6) (1 б.) Верные ответы: 3;

7) (1 б.) Верные ответы: 4;

8) (1 б.) Верные ответы: 1;

9) (1 б.) Верные ответы: 3;

10) (1 б.) Верные ответы: 3;

11) (1 б.) Верные ответы: 2;

12) (1 б.) Верные ответы: 3;

13) (1 б.) Верные ответы: 4;

14) (1 б.) Верные ответы: 1;

15) (1 б.) Верные ответы: 1; 2;

16) (1 б.) Верные ответы: 1;

17) (1 б.) Верные ответы: 2;

18) (1 б.) Верные ответы: 1;

19) (1 б.) Верные ответы: 3;

20) (1 б.) Верные ответы: 2;

21) (1 б.) Верные ответы: 2;

Объяснение: