Pagini recente » Cod sursa (job #1445401) | Cod sursa (job #715824) | Cod sursa (job #2709801) | Cod sursa (job #2736393) | Cod sursa (job #272513)
Cod sursa(job #272513)
program ultima_cifra;
var x:array[1..30000] of integer;
f,g:text;
t,i,n:integer;
begin
assign (f,'cifra.in'); reset(f);
assign (g,'cifra.out'); rewrite(g);
read (f,t);
for i:=1 to t do
begin
read (f,x[i]); n:=0;
repeat
if x[i]=1+n then writeln(g,'1');
if x[i]=2+n then writeln(g,'5');
if x[i]=3+n then writeln(g,'2');
if x[i]=4+n then writeln(g,'8');
if x[i]=5+n then writeln(g,'3');
n:=n+5;
until x[i]-n<=5;
end;
close(f);
close(g);
end.