Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Const
- M=2;
- var
- p:real;
- x: array [1..M] of integer;
- y: array [1..M] of integer;
- z: array [1..M] of integer;
- i:integer;
- begin
- Writeln('Введите x1,x2,y1,y2,z1,z2');
- for i:=1 to M do begin
- Read(x[i]);
- Read(y[i]);
- Read(z[i]);
- end;
- p:=sqrt(sqr((x[1]-x[2])+(y[1]-y[2])+(z[1]-z[2])));
- Writeln('Пирриметр равен:',p);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement