Cod sursa(job #601450)

Utilizator RaileanuCristian Raileanu Raileanu Data 6 iulie 2011 18:20:21
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.84 kb
Program ultima_cifra;
type numar= string[100];
const u: array[1..9] of byte= (1,4,9,6,5,6,9,4,1);
var t,i: longint;
    f1,f2:text;
    n:array[1..300] of numar;
    b:array[1..300] of byte;

Procedure ultima(var s:numar;var cif: byte);
var i,c,v: longint;
    cod:integer;
Begin
     if length(s)=1 then c:=0 else Begin
     val(s[length(s)-1],v,cod);
     if odd(v) then c:=5

        else c:=0;
     end;
     val(s[length(s)],v,cod);
     for i:=1 to v do
         c:=c+ u[i];
     c:=c mod 10;
     cif:=c;
end;

Begin
     assign(f1, 'cifra.in' );
     assign(f2, 'cifra.out');
     reset(f1);
     readln(f1,t);
     for i:=1 to t do
         readln(f1,n[i]);
     close(f1);
     for i:=1 to t do
         ultima(n[i],b[i]);
     rewrite(f2);
     for i:=1 to t do
         writeln(f2,b[i]);
     close(f2);
end.