Cod sursa(job #896598)

Utilizator StefanCatalinaStefan Catalina StefanCatalina Data 27 februarie 2013 16:19:59
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.8 kb
program cifra;
type vector=array[1..100] of integer;
var n,m:string;
    er,nr,i,j,t:integer;
    s:longint;
    f,g:text;
    v:vector;
function putere(x:integer):longint;
    var p,j:longint;
    begin
    p:=1;
    for j:=1 to x do p:=(p*x) mod 10;
    putere:=p;
    end;
procedure formare(var v:vector);
var j,pr:integer;
begin
for j:= 1 to 100 do begin pr:=putere(j);s:=(s+pr) mod 10;v[j]:=s;
end;
end;
begin
s:=0;
assign(f,'cifra.in');reset(f);
assign(g,'cifra1.out');rewrite(g);
readln(f,t);{writeln(g,t);}
formare(v);
for i:=1 to t do begin
                 readln(f,n);{writeln(g,n);}
                 if length(n)>=3 then
                 delete(n,1,length(n)-2);
                 val(n,nr,er);
                 writeln(g,v[nr]);
                 end;
close(f);close(g);
end.