Cod sursa(job #561862)

Utilizator Relu.PomianRelu Pomian Relu.Pomian Data 21 martie 2011 21:26:54
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.43 kb
type vector=array[1..10000] of longint;
var t,i,b,a:integer;
j:longint;
n:vector;
f:text;
begin
assign(f,'cifra.in');reset(f);
read(f,t);
for i:=1 to t do read(f,n[i]);
close(f);
a:=0;j:=1;
assign(f,'cifra.out');rewrite(f);
for i:=1 to t do begin
    b:=n[i];
    while j<n[i] do begin
        b:=b*n[i];
        j:=j+1
        end;
    j:=1;
    a:=a+b;
    a:=a mod 10;
    write(f,a);
    end;
close(f);
end.