Pagini recente » Cod sursa (job #2612948) | Cod sursa (job #337572) | Cod sursa (job #17667) | Cod sursa (job #1384639) | Cod sursa (job #873437)
Cod sursa(job #873437)
program cifra;
var a : array[0..19] of byte;
f,g : text; c : string[100];
t,i : word; s,x,y : byte;
n : longint;
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.