Cod sursa(job #1300497)
| Utilizator | 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. 