|
|
back to boardVar k :extended; n :word; begin readln(n); repeat readln(k); write(ord(trunc(sqrt(2*(k-1)))* (trunc(sqrt(2*(k-1)))+1)=2*(k-1)),' '); dec(n); until n=0; end. (ord(trunc(sqrt(2*(k-1)))*(trunc(sqrt(2*(k-1)))+1)=2*(k-1)),' '); How do you get this? |
|
|