Cod sursa(job #220717)

Utilizator mironalex2005Alexandru Miron mironalex2005 Data 12 noiembrie 2008 10:29:18
Problema Cifra Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.78 kb
program p21;   
var n:string[100];   
    f,g:text;   
    x,y:array[1..100]of longint;   
    e,c,i,lg,t,nn,k,p,q:longint;   
begin  
assign(f,'cifra.in');reset(f);   
assign(g,'cifra.out');rewrite(g);   
  
  
x[1]:=1;   
y[1]:=1;   
for i:=2 to 99 do  
    begin  
    c:=i mod 10;   
    e:=i mod 4;   
    if e=0 then e:=4;   
    p:=1;   
    for k:=1 to e do  
          p:=p*c;   
    x[i]:=p mod 10;   
    y[i]:=(y[i-1]+x[i])mod 10;   
    end;   
  
  
  
    readln(f,t);   
    for i:=1 to t do  
    begin  
    readln(f,n);   
         p:=0;   
         lg:=length(n);   
         q:=ord(n[lg])-ord('0');   
         if lg>1 then p:=ord(n[lg-1])-ord('0');   
         nn:=p*10+q;   
         writeln(g,y[nn]);   
         end;   
close(g);   
end.