Pagini recente » Cod sursa (job #1360856) | Cod sursa (job #2938856) | Cod sursa (job #3151504) | Cod sursa (job #694558) | Cod sursa (job #2394840)
var
fout, fin: textfile;
c,a,s, n, i: integer;
type vector= array [1..1000] of integer;
var x,y,b:vector;
function xlax (n:longint):longint;
var c,i:longint;
begin
c:=1;
for i:=1 to n do
c:=c*n;
xlax:=c;
end;
begin
assign(fin, 'cifre.in');
reset(fin);
assign(fout, 'cifre.out');
rewrite(fout);
read(fin, n);
for c := 1 to n do readln (x[c]);
for i := 1 to x[c] do
y[i]:= s + xlax(i);
for i := 1 to x[i] do b[c]:= y[i] mod 10;
writeln(fout,b);
close(fin);
close(fout);
end.