Cod sursa(job #794869)

Utilizator vladcnejeviciCnejevici Vlad vladcnejevici Data 7 octombrie 2012 11:46:34
Problema Ciurul lui Eratosthenes Scor 0
Compilator cpp Status done
Runda Arhiva educationala Marime 1.08 kb
#include<iostream.h>
#include<conio.h>
void main()
{clrscr();
unsigned n,a[100],b[100],c[100],i,j=0,o=0,p=0,pc,s,d,k,aux;
cout<<"n=";
cin>>n;
for(i=0;i<n;i++)
{cout<<"a["<<i<<"]=";
cin>>a[i];
}
cout<<"Elementele vectorului a sunt: ";
for(i=0;i<n;i++)
cout<<a[i]<<" ";
for(i=0;i<n;i++)
if(a[i]%10%4==0)
p++;
if(p)
cout<<endl<<"Nr. de numere pare cu u.c. div. cu 4 este: "<<p;
else cout<<endl<<"Nu exista nr. pare cu ultima cifra div. cu 4";
for(i=0;i<n;i++)
{pc=a[i];
while(pc>9)
pc/=10;
b[j++]=pc;
}
cout<<endl<<"Elementele vectorului b in ordinea initiala sunt: ";
for(i=0;i<j;i++)
cout<<b[i]<<" ";
for(i=0;i<j-1;i++)
for(k=i+1;k<j;k++)
if(b[i]<b[k])
{aux=b[i];
b[i]=b[k];
b[k]=aux;
}
cout<<endl<<"Elementele vectorului b in ordine descresc. sunt: ";
for(i=0;i<j;i++)
cout<<b[i]<<" ";
for(i=0;i<n;i++)
{s=0;
if(a[i]>2)
{for(d=1;d<a[i];d++)
if(a[i]%d==0)
s=s+d;
if(a[i]==s)
c[o++]=s;
}}
if(o)
{cout<<endl<<"Elementele vectorului c sunt: ";
for(i=0;i<o;i++)
cout<<c[i]<<" ";
}else cout<<endl<<"Nu exista numere perfecte";
getch();
}