Наиэлементарнейшая задача: Запишите формулу в языке программирования Pascal
Answers & Comments
SkyBy
Если я правильно понял, то так. var x1,x2,y1,y2,d,a,b: real; begin read (x1); read (x2); read (y1); read (y2); a:=sqr(x2-x1); b:=sqr(y2-y1); d:=sqrt(a+b); writeln (d); end. Работает правильно.
Answers & Comments
var x1,x2,y1,y2,d,a,b: real;
begin
read (x1);
read (x2);
read (y1);
read (y2);
a:=sqr(x2-x1);
b:=sqr(y2-y1);
d:=sqrt(a+b);
writeln (d);
end.
Работает правильно.