Cod sursa(job #606295)

Utilizator BlaugranasEnal Gemaledin Blaugranas Data 3 august 2011 19:07:36
Problema Submultimi Scor 100
Compilator cpp Status done
Runda Arhiva educationala Marime 0.7 kb
#include<fstream.h>
int n,p,k,s[50],i;
int v(int s[50],int k)
{for(i=1;i<k;i++)
if(s[i]==s[k])
       return 0;
return 1;}
int main()
{ifstream f("submultimi.in");
ofstream g("submultimi.out");
f>>n;
for(p=1;p<=n;p++)
      {k=1,s[k]=0;
      while(k>0)
             {s[k]++;
             if(v(s,k))
                     if(s[k]<=n)
                             if(k==p)
                                     {for(i=1;i<=k;i++)
                                              g<<s[i]<<" ";
                                     g<<"\n";}
                             else
                                     k++,s[k]=s[k-1];
                     else
                             k--;}}
return 0;}