Cod sursa(job #27929)
Utilizator | Data | 7 martie 2007 12:14:04 | |
---|---|---|---|
Problema | Cifra | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.48 kb |
program calcul;
var k,l:text;
s:array[1..100] of string;
x,o:array[1..100] of longint;
n,i,j,p:longint;
c,s1:integer;
begin
assign(k,'cifra.in');
reset(k);
readln(k,n);
for i:=1 to n do
readln(k,s[i]);
close(k);
for i:=1 to n do
val(s[i],x[i],c);
for i:=1 to n do begin
p:=1;
for j:=1 to x[i] do begin
p:=p*x[i];
p:=p mod 10;
end;
s1:=s1+p;
o[i]:=s1 mod 10;
end;
assign(l,'cifra.out');
rewrite(l);
for i:=1 to n do
writeln(l,o[i]);
close(l);
end.