Cod sursa(job #1454080)
Utilizator | Data | 25 iunie 2015 13:38:29 | |
---|---|---|---|
Problema | Cifra | Scor | 90 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 1.68 kb |
var m,n,i:integer;
f,g:text;
c,c1:char;
s:string;
begin
assign(f,'cifra.in');
assign(g,'cifra.out');
reset(f);
rewrite(g);
readln(f,n);
for i:=1 to n do
begin
m:=0;
c1:=#0;
readln(f,s);
if length(s)>1 then begin
c1:=s[length(s)-1];
c:=s[length(s)];
end
else c:=s[length(s)];
case c1 of
'1':m:=m+7;
'2':m:=m+4;
'3':m:=m+1;
'4':m:=m+8;
'5':m:=m+5;
'6':m:=m+2;
'7':m:=m+9;
'8':m:=m+6;
'9':m:=m+3;
end;
if ord(c1)mod 2=0 then case c of
'1':m:=m+1;
'2':m:=m+5;
'3':m:=m+2;
'4':m:=m+8;
'5':m:=m+3;
'6':m:=m+9;
'7':m:=m+2;
'8':m:=m+8;
'9':m:=m+7;
end
else case c of
'1':m:=m+1;
'2':m:=m+7;
'3':m:=m+0;
'4':m:=m+6;
'5':m:=m+1;
'6':m:=m+7;
'7':m:=m+4;
'8':m:=m+8;
'9':m:=m+7;
end;
writeln(g, m mod 10);
end;
close(f);
close(g);
end.