Cod sursa(job #616112)

Utilizator dumitruandrDumitru Andreea dumitruandr Data 11 octombrie 2011 19:27:36
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.46 kb
program cifra;
var t,a,s,i,j:integer;
    n:array[1..30000]of integer;
    f,g:text;
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,n[i]);
s:=0;
for j:=1 to n[i] do
begin
a:=j mod 10;
if j mod 4=2 then
a:=a*a mod 10
else
if j mod 4=3 then
a:=a*a*a mod 10
else
if j mod 4=0 then
a:=a*a*a*a mod 10;
s:=s+a;
end;
s:=s mod 10;
writeln(g,s);
end;
close(f);
close(g);
end.