Pagini recente » Cod sursa (job #703684) | Cod sursa (job #71229) | Cod sursa (job #760580) | Cod sursa (job #679214) | Cod sursa (job #17931)
Cod sursa(job #17931)
program cifra;
type vec=array[1..10]of longword;
sir=array[1..1000000]of longword;
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 n:sir;
i,j,s,t,aux:longword;
f,g:text;
begin
assign(f,'cifra.in');reset(f);
read(f,t);
for i:=1 to t do readln(f,n[i]);
close(f);
assign(g,'cifra.out');rewrite(g);
for i:=1 to t do begin
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.