Pascal. Как записать ** языке паскаля D = корень из (b-a) всё к квадрате + (p-c) всё в...

Question

Pascal.
Как записать на языке паскаля D = корень из (b-a) всё к квадрате + (p-c) всё в квадрате

Answer 1

D:= sqr(sqr(sqrt(b-a)) + p - c)
вероятнее, вы не правильно написали, и p-c должно быть в квадрате, но я сделал как написано

Comments

Нууу, p-c и всё в квадрате.

---

Написано же)

---

Program McW0w; 
Var 
p,d,c,a,b: integer; 
begin 
Write('Введите первую координату : '); 
Read(a);
Write('Введите вторую координату : '); 
Read(b);
Write('Введите третию  координату : '); 
Read(c);
Write('Введите четвёртую координату : '); 
Read(p);
d:=sqr(sqr(sqrt(b-a)) + p - c)
Write(d);
end.

---

По формуле записать надо d:= Корень из (х2-х1) всё в кв. + (y2-y1) все в кв.

Answer 2

sqr(A*2+b*2)
(s+p*2)
x+y/2
15*x-7/2

Вроде так,если честно не очень понятно написан вопрос 

Comments

Щас

---

Program McW0w; 
Var 
p,d,c,a,b: integer; 
begin 
Write('Введите первую координату : '); 
Read(a);
Write('Введите вторую координату : '); 
Read(b);
Write('Введите третию  координату : '); 
Read(c);
Write('Введите четвёртую координату : '); 
Read(p);
d:= sqrt тут нужно записать корень из (b-a) всё к квадрате + (p-c) всё в квадрате
Write(d);
end.