Cod sursa(job #37566)

Utilizator Cristian_DragneaUnbekannte Name Cristian_Dragnea Data 25 martie 2007 11:04:19
Problema Elimin 2 Scor 0
Compilator cpp Status done
Runda preONI 2007, Runda 4, Clasa a 10-a Marime 0.49 kb
#include <fstream.h>
#include <conio.h>

int v[500];
ifstream fin("elimin2.in");
ofstream fout("elimin2.out");
void main(){
clrscr();
int i,j,k=0;
int n;

fin>>n;

while(n)
if(n%10==0){ v[k++]=(n%10);
n=n/10;
}
if(v[k]==0);
else{
//verificam;
for(i=0;i<=k;i++)
if(v[i]==v[k-i]);
else if(v[i]!=v[k-i]){
for(j=i;j<=k;j++){
v[j]=v[j+1];
}
k--;
}
//introducem secventa palindromica in fisierul de iesire;
for(i=0;i<=k;i++)
fout<<v[i];
}
fout.close();
fin.close();
getch();
}