Pagini recente » Cod sursa (job #1347212) | Cod sursa (job #530296) | Cod sursa (job #1193509) | Diferente pentru problema/partitie intre reviziile 8 si 9 | Cod sursa (job #2515144)
Program p1;
type tabel=array[1..255] of integer;
var i,j,t,sum:integer;
A:tabel;
function putere(x:integer):integer;
var i,rs:integer;
begin
rs:=1;
for i:=1 to x do rs:=rs*x;
putere:=rs;
end;
begin
readln(t);
for i:=1 to t do readln(A[i]);
for i:=1 to t do begin
for j:=1 to A[i] do
sum:=sum+putere(j);
writeln(sum mod 10);
sum:=0;
end;
end.