Cod sursa(job #1604361)
| Utilizator |  Arion Stefan stefanarion |
Data | 18 februarie 2016 10:27:24 |
|---|---|---|---|
| Problema | Cifra | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.31 kb |
program Cifra;
var a,b,c,n,i,j,k:integer;
s:real;
f,t:text;
begin
assign(t,'cifra.in');
assign(f,'cifra.out');
reset(t);
rewrite(f);
Readln(t,n);
for i:=1 to n do begin
readln(t,a);
for k:=1 to a do s:=s+power(k,k);
b:=trunc(s);
b:=b mod 10;
writeln(f,b);
s:=0;
end;
close(f);
close(t);
end.