Cod sursa(job #193150)

Utilizator blackuncannyfarcasan roxana blackuncanny Data 2 iunie 2008 18:02:58
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 1.29 kb
program cifra;
var
f,g:text;
n,u,t,i,nr,j:longint;
err:integer;
s:string;
begin
assign(f,'cifra.in'); reset(f);
readln(f,t);
assign(g,'cifra.out'); rewrite(g);
for i:=1 to t do
         begin
         readln(f,s);s:=copy(s,length(s)-2,3);
         val(s,n,err);
    u:=0;
    nr:=n div 10;
    if nr > 0 then begin
    if nr mod 4=0 then u:=1
        else if nr mod 4 =1 then u:=7
        else if nr mod 4=2 then u:=9
            else u:=3;   end;
    nr:=n mod 10;
    for j:=1 to nr do
     if j=2 then begin
                 if j mod 4=2 then u:=u+4
                         else u:=u+6;
                 end
               else if j=3 then begin
                  if j mod 4=1 then u:=u+3
                          else u:=u+7
                                end
                 else if j=4 then u:=u+6
                  else if j=7 then  begin
                         if j mod 4=1 then u:=u+7
                              else u:=u+3
                                   end
                        else if j=8 then begin
                           if j mod 4=2 then u:=u+4
                                       else u:=u+6
                                  end
                            else u:=u+j;
     writeln(g,u mod 10);
       end;
close(f); close(g);
end.