Pagini recente » Cod sursa (job #71984) | Cod sursa (job #301585) | Istoria paginii runda/lucrare_xi_d | Cod sursa (job #2217341) | Cod sursa (job #857855)
Cod sursa(job #857855)
program cifra;
var f, g : text;
n, i : word;
x, j : longint;
s : byte;
function putere(nr : longint) : byte;
var k : longint; p : byte;
begin
p := 1;
for k := 1 to nr do p := (p * nr) mod 10;
putere := p;
end;
begin
assign(f,'cifra.in'); reset(f);
assign(g,'cifra.out'); rewrite(g);
readln(f,n);
for i := 1 to n do begin
readln(f,x); s := 0;
for j := 1 to x do
s := (s+putere(j)) mod 10;
writeln(g,s);
end;
close(f); close(g);
end.