Помогите с программированием
Var x1,x2,y1,y2:integer;
r:real;
begin;
readln(x1);
readln(y1);
readln(x2);
readln(y2);
r:=sqrt(sqr(x2-x1)+sqr(y2-y1));
writeln(r);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
