Cod sursa(job #63085)

Utilizator toni2007Pripoae Teodor Anton toni2007 Data 26 mai 2007 11:39:01
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.47 kb
var a,i,j,n,t,k,z,d,c,s:integer;
    f1,f2:text;
    b:boolean;
begin
    Assign(f1,'cifra.in');reset(f1);
    Assign(f2,'cifra.out');rewrite(f2);
readln(f1,t);
For a:=1 to t do begin
readln(f1,n);z:=0;
        For i:=1 to n do begin
            c:=i mod 4;If c=0 then c:=4;d:=1;
            For k:=1 to c do begin
                d:=d*(i mod 10)mod 10;
            end;
            z:=(z+d)mod 10;
        end;
writeln(f2,z);
end;
close(f1);
close(f2);
end.