SHARE
TWEET

123

finalshare Jul 8th, 2016 112 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. var
  2.         n,i,j:integer;
  3.         a:array [1..1000] of integer;
  4. begin
  5.         readln(n);
  6.  
  7.         for i:=1 to n div 2 do
  8.                 A[i]:=2*i;
  9.  
  10.         for i:=n div 2 +1 to n do
  11.                 A[i]:= A[i-n div 2];
  12.  
  13.         for i:=1 to n div 2 do
  14.                 begin
  15.                         for j:=i to i+n div 2-1 do
  16.                                 write(a[j],' ');
  17.                         writeln;
  18.                 end;
  19.         readln;
  20.  
  21. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top