Cod sursa(job #457162)

Utilizator teopavalTeodor Paval teopaval Data 18 mai 2010 11:29:27
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.66 kb
var t:integer;     
n:longint;     
f:text;  
 
procedure citire; 
begin
assign(f,'cifra.in'); 
reset(f); 
readln(f,t); 
end; 
 
 
function putere(i:longint):longint; 
var j,p:longint; 
begin
p:=1; 
for j:=1 to i do    
p:=(p mod 10)*(i mod 10); 
putere:=p; 
end;  
 
procedure rezolvare; 
var i,s,j:longint; 
    
g:text; 
begin
assign(g,'cifra.out'); 
rewrite(g); 
s:=0; 
for i:=1 to t do begin
              
readln(f,n); 
                
{for j:=1 to n do}
                     
s:=(s+putere(n))mod 10; 
                
writeln(g,s); 
                
end; 
close(f); 
close(g); 
end; 
 
 
begin
citire; 
rezolvare; 
end.