Cod sursa(job #1147084)

Utilizator Mihai_ChihaiMihai Chihai Mihai_Chihai Data 19 martie 2014 16:23:18
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 1.04 kb
program cifra;
  var t,n,i,m:longint;
     s:ansistring;

  begin

    assign(input,'cifra.in'); reset(input);
    assign(output,'cifra.out'); rewrite(output);
    readln(t);
    while (t>0)do begin

    readln(s);
    if length(s)>=2 then
          n:=ord(s[length(s)])-48+(ord(s[length(s)-1])-48)*10
     else n:=ord(s[1])-48;
     m:=n;
     n:=0;

     n:=(m div 20-1)*8;
     m:=m mod 20;
    for i:=0 to 19 do
       if m>=i then case i of
        0:inc(n,8);
        1:inc(n,1);
        2:inc(n,4);
        3:inc(n,7);
        4:inc(n,6);
        5:inc(n,5);
        6:inc(n,6);
        7:inc(n,3);
        8:inc(n,6);
        9:inc(n,9);
        10:inc(n,0);
        11:inc(n,1);
        12:inc(n,6);
        13:inc(n,3);
        14:inc(n,6);
        15:inc(n,5);
        16:inc(n,6);
        17:inc(n,1);
        18:inc(n,4);
        19:inc(n,9);
         end;

        {if (m <=20) and (length(s)<=2)  then dec(n,8); }
        writeln(n mod 10);
        dec(t);
    end;
    close(output);
  end.