Advertisement
Varvara_Golovnova

Untitled

Dec 20th, 2024
15
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.32 KB | None | 0 0
  1. var
  2. x,y : array [1..100] of real;
  3. x1,x2,x3,x4,y1,y2,y3,y4 : longint;
  4. i,n,sumx,sumy : longint;
  5. begin
  6. for i:=1 to 4 do
  7. readln(x[i], y[i]);
  8. sumx:=0;
  9. for i:=1 to 4 do
  10. sumx[i]:=x1+x3;
  11. for i:=1 to 4 do
  12. sumy:=0;
  13. for i:=1 to 4 do
  14. sumy[i]:=y2+y4;
  15. writeln(sumx[i]:0:3,' ',sumy[i]:0:3);
  16. end.
  17.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement