Регистрация
roma1234563
18.10.2020 13:41
Математика
Есть ответ 👍

Найди значение разности.

ответ: 

Назад

Проверить

​

138
209
Посмотреть ответы 3

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

Danielllllllll
Danielllllllll
4,4(35 оценок)

Назад, проверить

Пошаговое объяснение:

Daina1115
Daina1115
4,5(28 оценок)

Простите , что тут надо найти , не понятно

BOSS11112711
BOSS11112711
4,6(87 оценок)

Пошаговое объяснение:

Var a1,b1,a2,b2,a3,b3:integer;

 p,a,b,c:real;

procedure dlina (x1,x2,y1,y2:integer; var d:real);

begin

 d:=sqrt(sqr(x2-x1)+sqr(y2-y1));

 end;

begin

read(a1,b1,a2,b2,a3,b3);

dlina(a1,a2,b1,b2,a);

dlina(a2,a3,b2,b3,b);

dlina(a3,a1,b3,b1,c);

p:=a+b+c;

write(p:0:2);

end.

Популярно: Математика