Cod sursa(job #818610)

Utilizator andy95Ianc Andrei andy95 Data 17 noiembrie 2012 18:54:19
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.35 kb
Raporteaza aceasta sursa 
program jjj;
var f,g:text;
i,s,n,j,t,r:longint;
p:int64;
begin
assign(f,'cifra.in');reset(f);
assign(g,'cifra.out');rewrite(g);
read(f,t);
s:=0;
for i:=1 to t do begin
read(f,n);
p:=n;
for j:=1 to n-1 do begin
p:=p*n;
end;
s:=s+p;
{if i=5 then s:=s div 5;
if i=10 then s:=s div 25; }
r:=s mod 10;
write(g,r);
end;
close(f);close(g);
end.