Cod sursa(job #272513)

Utilizator Alexandru_LesLes Alexandru Alexandru_Les Data 7 martie 2009 12:00:53
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.54 kb
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.