Cod sursa(job #1300707)

Utilizator SirbuAlexandruSirbu Alexandru SirbuAlexandru Data 24 decembrie 2014 19:13:25
Problema Cifra Scor 80
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.53 kb
var
	f,g:text;
	s,nrs:string;
	i,e,n,nr:integer;
	v:array[0..99] of integer;
begin
	s:='0152839287784738415445962736211281728598893061706556251629322374051409906950637667184958433403940710';
	for i:=1 to 100 do begin
		val(s[i],nr,e);
		if e=0 then
			v[i-1]:=nr;
	end;
	assign(f,'cifra.in');
	assign(g,'cifra.out');
	reset(f);
	rewrite(g);
	readln(f,n);
	while not eof(f) do begin
		readln(f,nrs);
		nrs:=copy(nrs,length(nrs)-2,length(nrs));
		val(nrs,nr,e);
		writeln(g,v[nr mod 100]);
	end;
	close(g);
	close(f);
end.