const v: array [0..9] of integer = (1,0,0,0,1,0,1,0,2,1); var x,n: integer; begin read(x); n := 0; repeat n := n + v[x mod 10]; x := x div 10; until x = 0; write(n) end.
Var ar:array[1..2000] of integer; i,s,sum:integer; begin readln(s); sum:=0; for i:=1 to s do begin read(ar[i]); sim:=sum+ar[i]; end; writeln(sum); end.