Guest User

Untitled

a guest
Jan 4th, 2018
65
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.15 KB | None | 0 0
  1. {R+,S+,Q+,I+,O-}
  2. {$R-,S-,Q-,I-,O+}
  3. var
  4. u,q,n,d,i,j: longint;
  5. s: array [0..300010] of char;
  6. begin
  7. // assign(input,'in'); reset(input);
  8. // assign(output,'out'); rewrite(output);
  9. read(n);
  10. if n mod 2 <> 0 then q:=2 else
  11. if n mod 3 <> 0 then q:=3 else
  12. if n mod 5 <> 0 then q:=5 else
  13. if n mod 7 <> 0 then q:=7 else
  14. if n mod 11 <> 0 then q:=11 else
  15. if n mod 13 <> 0 then q:=13 else
  16. begin
  17. q:=0;
  18. for i:=1 to n do s[i]:=Chr(Ord('a')+(i-1) mod 17);
  19. if n mod 8 = 0 then u:=9
  20. else u:=8;
  21. for i:=n div 2 to n do s[i]:=Chr(Ord('r')+(i-1) mod u);
  22. end;
  23. if q > 0 then
  24. begin
  25. for i:=1 to n div 2 do s[i]:=Chr(Ord('a')+(i-1) mod q);
  26. for i:=n div 2+1 to n do s[i]:=Chr(Ord('n')+(i-1) mod q);
  27. end;
  28. { for d:=1 to n-1 do
  29. if n mod d = 0 then
  30. begin
  31. j:=d+1;
  32. for i:=1 to n do
  33. begin
  34. if s[i] = s[j] then
  35. begin
  36. writeln('collision found for d = ',d);
  37. while true do;
  38. break;
  39. end;
  40. inc(j);
  41. if j > n then j:=1;
  42. end;
  43. end; }
  44. for i:=1 to n do write(s[i]);
  45. writeln;
  46. close(input);
  47. close(output);
  48. end.
Add Comment
Please, Sign In to add comment