Cod sursa(job #76649)

Utilizator ioalexno1Alexandru Bunget ioalexno1 Data 10 august 2007 18:13:02
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.71 kb
program p1;
var f,f1:text;
    i,t,s,r,j,m,c:longint;
    c_er:integer;
    z,p:byte;
    n,a:string;
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);
    z:=length(n);
    a:=copy(n,z-1,2);
    val(a,c,c_er);
    s:=0;
    m:=c div 10;
    s:=(m*7)mod 10;
    p:=c mod 10;
    for i:=1to p 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.