Cod sursa(job #5405)

Utilizator OverdeathPirvulet Andrei Overdeath Data 12 ianuarie 2007 12:38:20
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.51 kb
program p1;
var f,g:text;
   s2:string;
   i,j,n,m,c1,c,n2,s,err:integer;
function u(k,m:integer):byte;
var p:integer;
begin
c:=k mod 10;
c1:=1;
p:=0;
for i:=1 to m do begin
c1:=(c1*c) mod 10;
p:=p+1;
end;
u:=c1;
end;
begin
assign(f,'cifra.in');reset(f);
assign(g,'cifra.out');rewrite(g);
readln(f,n);
for i:=1 to n do begin
    readln(f,s2);
    val(s2[length(s2)], n2, err);
    s:=0;
    for j:=1 to n2 do begin s:=s+u(j,j); s:=s mod 10; end;
    writeln(g,s);
    end;
close(f);close(g);
end.