Pagini recente » Cod sursa (job #1410586) | Cod sursa (job #735434) | Cod sursa (job #3180246) | Cod sursa (job #1646622) | Cod sursa (job #68459)
Cod sursa(job #68459)
Program Cifra;
const c : array[0..19] of integer=(0,1,4,7,6,5,6,3,6,9,0,1,6,3,6,5,6,7,4,9);
var Intrare,Iesire : text;
T : integer;
A : array[0..99] of integer;
procedure DeschideFisiere;
begin
assign(Intrare,'cifra.in');
assign(Iesire,'cifra.out');
reset(Intrare);
rewrite(Iesire);
readln(Intrare,T);
end;
procedure InchideFisiere;
begin
close(Intrare);
close(Iesire);
end;
procedure Init;
var i : integer;
begin
A[0]:=0;
for i:=1 to 99 do A[i]:=(A[i-1]+c[i mod 20]) mod 10;
end;
procedure Calculeaza;
var i,l : integer;
s : string[100];
begin
Init;
for i:=1 to T do
begin
readln(Intrare,s);
l:=length(s);
if l=1 then writeln(Iesire,A[ord(s[1])-48])
else writeln(Iesire,A[10*(ord(s[l-1])-48)+ord(s[l])-48]);
end;
end;
begin
DeschideFisiere;
Calculeaza;
InchideFisiere;
end.