Cod sursa(job #505778)

Utilizator vendettaSalajan Razvan vendetta Data 3 decembrie 2010 22:53:17
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.65 kb
var
    f,g:text;
    s:string;
    j,sol,t,i,nr,er:longint;

function pow(a,n:int64):int64;
    var
        p:int64;
    begin
        p:=1;
        while n<>0 do
            begin
            if n mod 2=1 then p:=p*a;
            a:=a*a;
            n:=n div 2;
            end;
        pow:=p;
    end;

begin
    assign(f,'cifra.in');reset(f);
    assign(g,'cifra.out');rewrite(g);
    readln(f,t);
    for i:=1 to t do
        begin
        readln(f,s);
        val(s[length(s)],nr,er);
        sol:=0;
        for j:=1 to nr do
            sol:=sol+pow(j,j);
        write(g,sol mod 10);
        end;

    close(f);close(g);
end.