Cod sursa(job #317816)

Utilizator mari7Petrescu Maria mari7 Data 25 mai 2009 11:48:19
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.88 kb
Program cifra;
var t,i,s:integer;
    n,j:longint;
    f,g:text;
begin
assign(f,'cifra.in');
reset(f);
assign(g,'cifra.out'); rewrite(g);
readln(f,t);
for i:=1 to t do begin
readln(f,n);
s:=0;
   for j:=1 to n do
    case j mod 10 of
        0 : s:=s+0;
        1 : s:=s+1;
        4 : s:=s+6;
        5 : s:=s+5;
        6 : s:=s+6;
        9 : s:=s+1;
               else if j mod 10=2 then begin
             if j mod 4=2 then s:=s+4 else s:=s+6;
                                     end else
             if j mod 10=3 then begin
                if j mod 4=1 then s:=s+3 else s:=s+7; end
                else if j mod 10=7 then begin
                     if j mod 4=1 then s:=s+7 else s:=s+3; end else
             if j mod 10=8 then
                if j mod 4=2 then s:=s+4 else s:=s+6;
             end;
writeln(g,s mod 10);
end;
close(f);
close(g);
end.