Pagini recente » Cod sursa (job #2460119) | Cod sursa (job #182478) | Cod sursa (job #1397212) | Cod sursa (job #570185) | Cod sursa (job #878241)
Cod sursa(job #878241)
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);
j := 1;
s := ((trunc(n) div 100) div 20)*4;
n := trunc(n) mod 20;
while j <= n do begin
s := (s + a[trunc(j) mod 20]) mod 10;
j := j + 1;
end;
writeln(g,s mod 10);
end;
close(f); close(g);
end.