Mai intai trebuie sa te autentifici.
Cod sursa(job #505786)
| Utilizator | Data | 3 decembrie 2010 23:24:10 | |
|---|---|---|---|
| Problema | Cifra | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.67 kb |
var
f,g:text;
s:string;
j,sol,t,i,nr:longint;
er:integer;
function pow(a,n:int64):int64;
var
p:int64;
begin
p:=1;
while n<>0 do
begin
if n mod 2=1 then p:=p*a;
a:=a*a;
n:=n div 2;
end;
pow:=p;
end;
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,s);
val(s[length(s)],nr,er);
sol:=0;
for j:=1 to nr do
sol:=sol+pow(j,j);
writeln(g,sol mod 10);
end;
close(f);close(g);
end.
