Cod sursa(job #2796)

Utilizator bogdan315Popescu Bogdan-Ionut bogdan315 Data 19 decembrie 2006 05:25:54
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.39 kb
var n,i,j,c,x,t:integer;
    f,g:text;
    var a:array[1..30000]of integer;
begin
assign(f,'cifra.in');reset(f);
assign(g,'cifra.out');rewrite(g);
readln(f,t);
for i:=1 to t do
    begin
    readln(f,n);    c:=1;
    for i:=1 to n do
        begin
        c:=c*n;
        c:=c mod 10;
        end;
    x:=x+c;
    x:=x mod 10;
    writeln(g,x);
    end;
close(f);close(G);
end.