Submission #3452003

Source Code Expand

const
 s='DiscoPresentsDiscoveryChannelProgrammingContest2016';
var
 k,i,j:longint;
begin
 read(k);
 for i:=1 to 51 div k do
  begin
   for j:=(i-1)*k+1 to i*k do write(s[j]);
   writeln;
  end;
  for i:=51 div k*k+1 to 51 do write(s[i]);
  writel

Submission Info