Нужно перевести из паскаля в кумир Program Rastoyanie; var...

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