Cod sursa(job #2302113)

Utilizator BlaugranasEnal Gemaledin Blaugranas Data 13 decembrie 2018 20:12:53
Problema Submultimi Scor 100
Compilator c-64 Status done
Runda Arhiva educationala Marime 0.68 kb
#include<stdio.h>
short n,p,k,i,j,s[17];
int main()
{
    freopen("submultimi.in","r",stdin),freopen("submultimi.out","w",stdout),scanf("%hd",&n);
    for(p=1;p<=n;p++)
        for(k=1,s[k]=0;k;)
        {
            for(s[k]++,j=i=1;i<k&&j;i++)
                if(s[i]==s[k])
                    j=0;
            if(j)
                if(s[k]<=n)
                    if(k==p)
                    {
                        for(i=1;i<=k;i++)
                            printf("%hd ",s[i]);
                        printf("\n");
                    }
                    else
                        k++,s[k]=s[k-1];
                else
                    k--;
        }
}