Pagini recente » Cod sursa (job #940048) | Cod sursa (job #656894) | Cod sursa (job #965761) | Cod sursa (job #918635) | Cod sursa (job #287704)
Cod sursa(job #287704)
function f(n:longint):longint;
var i,k:longint;
begin
k:=1;
for i:=1 to n do k:=k*n mod 10;
f:=k;
end;
var n,i,m,j,k:integer;
begin
assign(input,'cifa.in'); reset(input);
assign(output,'cifra.out'); rewrite(output);
readln(j);
for k:=1 to j do begin readln(n); n:=n mod 100;
for i:=1 to n do m:=(m+f(i)) mod 10;
writeln(n,' ',m,' '); end;
close(input);
close(output);
end.