Cod sursa(job #85739)
| Utilizator | Data | 22 septembrie 2007 13:54:27 | |
|---|---|---|---|
| Problema | Cifra | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.72 kb |
program cifra;
{$APPTYPE CONSOLE}
uses
SysUtils;
var fin,fout:text;
i,j,n,ucifra,p,pp,ppp:longint;
begin
assign(fin,'cifra.in');
assign(fout,'cifra.out');
reset(fin);
rewrite(fout);
readln(fin,n);
ucifra:=0;
for i:=1 to n do
begin
readln(fin,p);
ppp:=p mod 10;
pp:=p mod 10;
for j:=2 to p do
begin
ppp:=pp*ppp;
ppp:=ppp mod 10;
end;
ucifra:=ucifra + ppp;
ucifra:=ucifra mod 10;
writeln(fout,ucifra);
end;
close(fout);
end.
