Cod sursa(job #873439)

Utilizator robertidRobert robertid Data 7 februarie 2013 11:18:14
Problema Cifra Scor 10
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.71 kb
program cifra;
var a : array[0..19] of byte;
    f,g : text; c : string[100];
    t,i : word; s,x,y : byte;
    n : real;
begin
    a[0] := 0; a[1] := 1; a[2] := 5; a[3] := 2; a[4] := 8;
    a[5] := 3; a[6] := 9; a[7] := 2; a[8] := 8; a[9] := 7;
    a[10] := 7; a[11] := 8; a[12] := 4; a[13] := 7; a[14] := 3;
    a[15] := 8; a[16] := 4; a[17] := 1; a[18] := 5; a[19] := 4;
    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);
        x := (trunc(n) mod 100) div 20;
        y := (trunc(n) mod 100) mod 20;
        s := x*4 + a[y];
        writeln(g,s mod 10);
        end;
    close(f); close(g);
end.