Pagini recente » Monitorul de evaluare | Monitorul de evaluare | Cod sursa (job #363091) | Diferente pentru warm-up-2019/solutii/shoturi intre reviziile 45 si 46 | Cod sursa (job #2017948)
Program Cifra;
var t:1..30000;
i,s,l,x,j:byte;
value:integer;
code:word;
nr:string;
function pow(n,p:longint):longint;
var i,s:longint;
begin
s:=1;
for i:=1 to p do begin
s:= s * n;
s:= s mod 10;
end;
pow:=s;
end;
begin
assign(f,'cifra.in');assign(g,'cifra.out');
reset(f);rewrite(g);
readln(f,t);
for j:=1 to t do begin
readln(f,nr);
l:=length(nr);
val(nr[l],x,code);
s:=0;
for i:=1 to x do begin
s:= s + pow(i,i);
s:= s mod 10;
end;
writeln(g,s);
end;
close(f);close(g);
end.