Cod sursa(job #878237)

Utilizator robertidRobert robertid Data 14 februarie 2013 10:35:21
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.74 kb
program cifra;
var a : array[0..19] of byte;
    f,g : text; c : string[100];
    t,i : word; s : byte;
    n,j : real;
begin
    a[0] := 0; a[1] := 1; a[2] := 4; a[3] := 7; a[4] := 6;
    a[5] := 5; a[6] := 6; a[7] := 3; a[8] := 6; a[9] := 9;
    a[10] := 0; a[11] := 1; a[12] := 6; a[13] := 3; a[14] := 6;
    a[15] := 5; a[16] := 6; a[17] := 7; a[18] := 4; a[19] := 9;
    assign(f,'cifra.in'); reset(f);
    assign(g,'cifra.out'); rewrite(g);
    readln(f,t);
    for i := 1 to t do begin
        readln(f,c); val(c,n,s);
        s := 0; j := 1;
        while j <= n do begin
            s := (s + a[trunc(j)]) mod 10;
            j := j + 1;
            end;
        writeln(g,s mod 10);
        end;
    close(f); close(g);
end.