Cod sursa(job #1300473)

Utilizator SirbuAlexandruSirbu Alexandru SirbuAlexandru Data 24 decembrie 2014 14:57:03
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.56 kb
 type z=array[0..99] of integer;
 var    
	 f,g:text;  
	 s:string;  
	 i,e,nr,n:integer;  
	 v:z;
 begin
	 s:='0152839287784738415445962736211281728598893061706556251629322374051409906950637667184958433403940710';
	 for i:=1 to 100 do begin
	 val(s[i],nr,e);
	 v[i-1]:=nr;
	 end;  
	 assign(f,'cifra.in');  
	 reset(f); 
	 assign(g,'cifra.out');    
	 rewrite(g);     
	 readln(f,n);   
	 for i:=1 to n do begin     
	 readln(f,nr);      
	 if i<n then writeln(g,v[nr mod 100]) else write(g,v[nr mod 100]);    
	 end; 
	 close(f);   
	 close(g); 
end.