Pagini recente » Cod sursa (job #2399701) | Cod sursa (job #1281807) | Cod sursa (job #1892612) | Cod sursa (job #639660) | Cod sursa (job #1300707)
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.