Cod sursa(job #679377)

Utilizator pop_ionutbmPop Ionut pop_ionutbm Data 13 februarie 2012 10:45:21
Problema Submultimi Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.35 kb
Raporteaza aceasta sursa 
program submultimi;
var f:text;
    i,m,j,n:integer;
begin
assign(f,'submultimi.in');reset(f);
readln(f,n);
close(f);
assign(f,'submultimi.out');rewrite(f);
m:=n;
for i:=1 to n do begin
  writeln(f,i);
  while i<=n do  begin

  write(f,i,' ')

       end;
  while m+1-m<=i do
  write(f,m+1-m,' ');
  inc(m);
  end;
  close(f);
end.