Pagini recente » Cod sursa (job #406103) | Cod sursa (job #2638967) | Cod sursa (job #528355) | Cod sursa (job #888316) | Cod sursa (job #264581)
Cod sursa(job #264581)
program Cifra;
var f,x:text;
t,g,i,j,p,c:longint;
s:string;
v:array [0..100] of byte;
Begin
assign(f,'cifra.in'); reset(f);
g:=0;v[0]:=0;
for i:=1 to 100 do begin
p:=1;
c:=i mod 10;
for j:=1 to i do
p:=p*c mod 10;
g:=(g+p) mod 10;
v[i]:=g; end;
readln(f,t);
assign(x,'cifra.out'); rewrite(x);
for j:=1 to t do begin
readln(f,s);
s:='0'+s;
s:=copy(s,length(s)-1,2);
val(s,i,g);
writeln(x,v[i]); end;
close(f); close(x);
end.