Advertisement
Varvara_Golovnova

Untitled

Dec 12th, 2024
19
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.25 KB | None | 0 0
  1. var
  2. x,y : array [1..100] of real;
  3. xn,yn : real;
  4. i,n,k,l : longint;
  5. begin
  6. readln(k);
  7. readln(l);
  8. readln(n);
  9. readln(x,y);
  10. for i:=1 to n do
  11. readln(x[i],y[i]);
  12. for i:=1 to n do
  13. writeln(xn[i]+k:0:3,' ',yn[i]-l:0:3);
  14. end.
  15.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement