Cod sursa(job #818614)

Utilizator andy95Ianc Andrei andy95 Data 17 noiembrie 2012 18:55:58
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=6 then s:=s div 6;
r:=s mod 10;
write(g,r);
end;
close(f);close(g);
end.