Pagini recente » Cod sursa (job #858092) | Cod sursa (job #2308855) | Cod sursa (job #2398564) | Cod sursa (job #2052004) | Cod sursa (job #896598)
Cod sursa(job #896598)
program cifra;
type vector=array[1..100] of integer;
var n,m:string;
er,nr,i,j,t:integer;
s:longint;
f,g:text;
v:vector;
function putere(x:integer):longint;
var p,j:longint;
begin
p:=1;
for j:=1 to x do p:=(p*x) mod 10;
putere:=p;
end;
procedure formare(var v:vector);
var j,pr:integer;
begin
for j:= 1 to 100 do begin pr:=putere(j);s:=(s+pr) mod 10;v[j]:=s;
end;
end;
begin
s:=0;
assign(f,'cifra.in');reset(f);
assign(g,'cifra1.out');rewrite(g);
readln(f,t);{writeln(g,t);}
formare(v);
for i:=1 to t do begin
readln(f,n);{writeln(g,n);}
if length(n)>=3 then
delete(n,1,length(n)-2);
val(n,nr,er);
writeln(g,v[nr]);
end;
close(f);close(g);
end.