Cod sursa(job #175227)

Utilizator llobyLodoaba Mihai lloby Data 9 aprilie 2008 18:36:38
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.6 kb
Program en;

var s: string;
    n,m,e: longint;
    v: array[0..9]  of integer;
    t,f: text;
begin
   v[0]:=0;
   v[1]:=1;
   v[2]:=5;
   v[3]:=2;
   v[4]:=8;
   v[5]:=3;
   v[6]:=9;
   v[7]:=2;
   v[8]:=8;
   v[9]:=7;
   assign(t,'cifra.in'); reset(t);
   assign(f,'cifra.out'); rewrite(f);
   readln(t);
   while not eof(t) do
     begin
       readln(t,s);
       n:=0;
       m:=0;
       val(s[length(s)-1],m,e);
       if e=0 then
       if m mod 2=0 then n:=0
         else n:=5;
       n:=n+v[m];
       writeln(f,n mod 10);
     end;
   close(t);
   close(f);
end.