profile
Опубликовано 5 лет назад по предмету Информатика от Roman320

KA11.
Найти расстояние между двумя точками на плоскости

  1. Ответ
    Ответ дан Аккаунт удален
    Var
    X1,Y1,X2,Y2:real;
    Begin
    Write('X1 = ');Read(X1);
    Write('Y1 = ');Read(Y1);
    Write('X2 = ');Read(X2);
    Write('Y2 = ');Read(Y2);
    Write('Расстояние между точками (',X1,';',Y1,') и (',X2,';',Y2,') = ',sqrt(sqr(X2-X1)+sqr(Y2-Y1)) )
    End.

Самые новые вопросы