Cod sursa(job #524328)

Utilizator superman13Stefan Maimescu superman13 Data 20 ianuarie 2011 22:54:09
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.79 kb
program cifra;
var
    s:string;
    pc,i,t,uc:integer;
    v:array[0..99] of integer;
    buf:array[1..1 shl 17] of char;

function putere(x,pow:integer):integer;
    var
        xc,t:integer;
    begin
        xc:=x;
        for t:=2 to pow do
            xc:=(xc*x) mod 10;
        putere:=xc;
    end;

begin
    assign(input,'cifra.in');reset(input);
    assign(output,'cifra.out');rewrite(output);
    settextbuf(input,buf);
    readln(t);
    v[0]:=0;
    for i:=1 to 99 do
        v[i]:=(v[i-1]+putere(i mod 10,i)) mod 10;
    uc:=0;
    for i:=1 to t do
        begin
        readln(s);
        val(s[length(s)],uc,aux);
        if length(s)>1 then
            val(s[length(s)-1],pc)
        else
            pc:=0;
        writeln(v[pc*10+uc]);
        end;

    close(input);close(output);
end.