Cod sursa(job #1299406)

Utilizator SirbuAlexandruSirbu Alexandru SirbuAlexandru Data 23 decembrie 2014 17:12:08
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.45 kb
var
	f,g:text;
	s:string;
	i,e,nr,n:integer;
	v:array[0..99] of integer;
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,v[nr mod 100]);
	end;
	close(f);
	close(g);
end.