На входе что на выхаде ч на входе 8, 14, 21, 129, 48, на выходе ч , н, н посмотрите ...

134

142

Посмотреть ответы 1

Ответы на вопрос:

Ivankozyr69gmail

Информатика

4,6(12 оценок)

Program n1; var kord: array[1..6] of real; st: array [1..3] of real; i: integer; begin i: =1; while i< =6 do begin write('введите координаты точки через пробел: '); readln(kord[i],kord[i+1]); i: =i+2; end; st[1]: =sqrt(sqr(kord[3]-kord[1])+sqr(kord[4]-kord[2])); st[2]: =sqrt(sqr(kord[5]-kord[1])+sqr(kord[6]-kord[2])); st[3]: =sqrt(sqr(kord[5]-kord[3])+sqr(kord[6]-kord[4])); if (st[1]=st[2]) and (st[2]=st[3]) then write('треугольник равносторонний') else write('треугольник не равносторонний'); end.