Cod sursa(job #76605)

Utilizator ioalexno1Alexandru Bunget ioalexno1 Data 10 august 2007 15:08:56
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.55 kb
program p1;
var f,f1:text;
    n,i,t,s,r,j:longint;
begin
assign(f,'cifra.in');reset(f);
readln(f,t);
assign(f1,'cifra.out');rewrite(f1);
for j:=1 to t do
    begin
    readln(f,n);
    s:=0;
    for i:=1to n do
    begin
    r:=i mod 4;
    case r of
    0:s:=(((i mod 10)*(i mod 10)*(i mod 10)*(i mod 10))mod 10+s)mod 10;
    1:s:=(s+i mod 10)mod 10;
    2:s:=(((i mod 10)*(i mod 10))mod 10+s)mod 10;
    3:s:=(((i mod 10)*(i mod 10)*(i mod 10))mod 10+s)mod 10;
    end;
    end;
    writeln(f1,s);
    end;
close(f);
close(f1);
end.