Cod sursa(job #304823)

Utilizator ioalexno1Alexandru Bunget ioalexno1 Data 15 aprilie 2009 13:58:04
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.48 kb
program alex;
var f,g:text;
    s:string;
    i,t,n,z,u,r,p,j,nr:longint;
    er:integer;
begin
assign(g,'cifra.out');rewrite(g);
assign(f,'cifra.in');reset(f);
readln(f,t);
nr:=0;
for i:=1 to t do
    begin
    readln(f,s);
    n:=length(s);
    val(s[n],u,er);
    val(s[n-1],z,er);
    p:=z*10+u;
    r:=p mod 4;
    p:=1;
    if r=0 then r:=2;
    for j:=1 to r do
        p:=(p*u)mod 10;
    nr:=(nr+p)mod 10;
    writeln(g,nr);
    end;
close(f);
close(g);
end.