Cod sursa(job #1300497)

Utilizator SirbuAlexandruSirbu Alexandru SirbuAlexandru Data 24 decembrie 2014 15:14:12
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.59 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);      
	   writeln(g,'7');
		
	   {if i<n then writeln(g,v[i-1]) else write(g,v[i-1]);    }
	 end; 
	 close(f);   
	
	 close(g); 
end.