Pagini recente » Cod sursa (job #187728) | Cod sursa (job #108041) | Cod sursa (job #2127666) | Cod sursa (job #2966766) | Cod sursa (job #17938)
Cod sursa(job #17938)
program cifra;
type vec=array[1..10]of integer;
str=array[1..30005]of string;
sir=array[1..30005]of integer;
const a:vec=(1,4,7,6,5,6,3,6,9,0);
b:vec=(1,6,3,6,5,6,7,4,9,0);
var m:str;
i,j,s,t,aux,err:integer;
f,g:text;
n:sir;
begin
assign(f,'cifra.in');reset(f);
readln(f,t);
for i:=1 to t do readln(f,m[i]);
close(f);
assign(g,'cifra.out');rewrite(g);
for i:=1 to t do begin
val(m[i][length(m[i])],n[i],err);
s:=(((n[i] div 10) mod 10)*7)mod 10;
aux:=0;
if (n[i]div 10) mod 2=0 then
for j:=1 to (n[i] mod 10) do inc(aux,a[j])
else
for j:=1 to (n[i] mod 10) do inc(aux,b[j]);
s:=(s+(aux mod 10))mod 10;
writeln(g,s);
end;
close(g);
end.