Pagini recente » Cod sursa (job #2181710) | Cod sursa (job #71053) | Cod sursa (job #2860176) | Cod sursa (job #1791458) | Cod sursa (job #878238)
Cod sursa(job #878238)
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 20]) mod 10;
j := j + 1;
end;
writeln(g,s mod 10);
end;
close(f); close(g);
end.