Question

Нужно перевести из паскаля в кумир
Program Rastoyanie;
var x1,x2,y1,y2,S:real;
begin
write('введите координаты');
readln(x1,x2,y1,y2);
S:=sqrt(sqr(x2-x1)+sqr(y2-y1));
writeln(s);
readln;
end.

Answer 1

Ответ:

алг Расстояние

нач

вещ x1,x2,y1,y2,S

вывод "Введите координаты "

ввод x1,x2,y1,y2

S:=sqrt((x2-x1)**2+(y2-y1)*(y2-y1))

вывод S

кон

Объяснение:

возведение в степень  x ** y