Cod sursa(job #277451)

Utilizator Dudy91Gogoase Vlad Dudy91 Data 11 martie 2009 18:59:11
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.49 kb
program cifra;
type vect=array [1..20] of integer;
var f,g:text;
v:vect;
i,t:integer;
function cifra1(x:integer):integer;
var s,p,j,r:integer;
begin
p:=0;
j:=0;
s:=0;
while i<t do begin
r:=p;
while j<i do begin
r:=r*p;
j:=j+1;
end;
s:=s+r;
p:=p+1;
end;
cifra1:=s mod 10;
end;
begin
assign(f,'cifra.in');
assign(g,'cifra.out');
reset(f);
rewrite(g);
readln(f,t);
for i:=1 to t do begin
readln(f,v[i]);
writeln(g,cifra1(v[i]));
end;
close(f);
close(g);
readln;
end.