Advertisement
Guest User

Untitled

a guest
Nov 21st, 2017
54
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.40 KB | None | 0 0
  1. Const
  2. M=2;
  3. var
  4.   p:real;
  5.   x: array [1..M] of integer;
  6.   y: array [1..M] of integer;
  7.   z: array [1..M] of integer;  
  8.   i:integer;
  9.  
  10. begin
  11.   Writeln('Введите x1,x2,y1,y2,z1,z2');
  12.   for i:=1 to M do begin
  13.       Read(x[i]);
  14.       Read(y[i]);
  15.       Read(z[i]);
  16.   end;
  17.   p:=sqrt(sqr((x[1]-x[2])+(y[1]-y[2])+(z[1]-z[2])));
  18.   Writeln('Пирриметр равен:',p);
  19.  
  20.  
  21.  
  22.  
  23. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement