Cod sursa(job #63234)

Utilizator toni2007Pripoae Teodor Anton toni2007 Data 27 mai 2007 16:05:49
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.48 kb
var j,k,z,d,s,c,i,t:integer;n:int64;
    f1,f2:text;
    b:boolean;
begin
    Assign(f1,'cifra.in');reset(f1);
    Assign(f2,'cifra.out');rewrite(f2);
readln(f1,t);
For z:=1 to t do begin
        readln(f1,n);s:=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;
            s:=(s+d)mod 10;
        end;
writeln(f2,s);
end;
close(f1);
close(f2);
end.