Регистрация
KKK11576
03.11.2021 10:38
Информатика
Есть ответ 👍

Информатика. Язык Паскаль

291
383
Посмотреть ответы 2

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

яяя611
яяя611
4,4(95 оценок)

1) Через запятую.

2) Во всех четырех.

ИринаЭлина11
ИринаЭлина11
4,4(48 оценок)
Function leng(var x,y,x1,y1: real): real; begin   leng: =sqrt(sqr(x-x1)+sqr(y-y1)); end; // основная программа var x1,y1,x2,y2,x3,y3,p: real; begin   write('координаты вершин   x1 y1 x2 y2 x3 y3 через пробел:   ');   readln(x1,y1,x2,y2,x3,y3);   if (leng(x2,y2,x1,y1) + leng(x3,y3,x2,y2) = leng(x3,y3,x1,y1)) or       (leng(x2,y2,x1,y1) + leng(x3,y3,x1,y1) = leng(x3,y3,x2,y2)) or       (leng(x3,y3,x2,y2) + leng(x3,y3,x1,y1) = leng(x2,y2,x1,y1)) then   writeln('точки лежат на одной прямой')   else    begin     p: =leng(x2,y2,x1,y1)+leng(x3,y3,x2,y2)+leng(x3,y3,x1,y1);     writeln('периметр: ',p: 7: 3);   end; end.координаты вершин   x1 y1 x2 y2 x3 y3 через пробел:   3 4 7 2 6 5 периметр:   10.797координаты вершин   x1 y1 x2 y2 x3 y3 через пробел:   1 2 3 4 5 6 точки лежат на одной прямой

Популярно: Информатика