Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Контрольное задание №13-1 / 13-1 / zadanie_1
.pas program Zadanie_1;
var
L,X1,Y1,X2,Y2:real;
begin
writeln ('‚ўҐ¤ЁвҐ Є®®а¤Ё вл 1 в®зЄЁ (X1,Y1)');
readln (X1,Y1);
writeln ('‚ўҐ¤ЁвҐ Є®®а¤Ё вл 2 в®зЄЁ (X2,Y2)');
readln (X2,Y2);
L:=sqrt(sqr(X1-x2)+sqr(Y1-Y2));
writeln ('ђ ббв®пЁҐ ¬Ґ¦¤г в®зЄ ¬Ё а ў®: ', L:10:4);
end.
var
L,X1,Y1,X2,Y2:real;
begin
writeln ('‚ўҐ¤ЁвҐ Є®®а¤Ё вл 1 в®зЄЁ (X1,Y1)');
readln (X1,Y1);
writeln ('‚ўҐ¤ЁвҐ Є®®а¤Ё вл 2 в®зЄЁ (X2,Y2)');
readln (X2,Y2);
L:=sqrt(sqr(X1-x2)+sqr(Y1-Y2));
writeln ('ђ ббв®пЁҐ ¬Ґ¦¤г в®зЄ ¬Ё а ў®: ', L:10:4);
end.