Cod sursa(job #161059)

Utilizator netedu_andreiFII Andrei Netedu netedu_andrei Data 17 martie 2008 16:39:17
Problema Cifra Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.81 kb
program p21;   
var n:string[100];   
    f,g:text;   
    x,y:array[1..100]of longint;   
    e,c,i,lg,t,nnn,k,p,q,qqq,www: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 
    www:=i; 
    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');   
         nnn:=p*10+q;   
         writeln(g,y[nnn]);   
         end;   
close(g);   
end.