Cod sursa(job #295900)

Utilizator lsorin_94Lodoaba Sorin lsorin_94 Data 3 aprilie 2009 19:20:19
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 1.2 kb
program cifra;
type vec=array [1..30000] of longint;
var j,i,n,k,l:longint;
    f,t:text;
    a:vec;
    mic:boolean;
begin
  assign(f,'cifra.in');
  reset(f);
  assign(t,'cifra.out');
  rewrite(t);
  read(f,k);
  for i:=1 to k do
    read(f,a[i]);
  for i:=1 to k do
    begin
      n:=0;
      for j:=1 to a[i] do
        begin
          n:=n+1;
          if n<>1 then
            if n>10
              then begin
                mic:=false;
                for k:=1 to j-1 do
                  begin
                    n:=(n mod 10)*(n mod 10);
                    if n>=10
                      then
                        n:=n mod 10;
                  end;
                   end
              else begin
                mic:=true;
                for l:=1 to j-1 do
                  if n>10 then
                            n:=(n mod 10)*(n mod 10)
                          else n:=n*n;
                   end;
        end;
      if mic
        then
          begin
            if n<10 then
              a[i]:=n
                    else
              a[i]:=n mod 10;
          end
        else a[i]:=n;
      writeln(t,a[i]);
    end;
  close(f);
  close(t);
end.