ac1262.pas

来自「Ural(Acm.timus.ru)题解 By Maigo大牛」· PAS 代码 · 共 14 行

program ural1262;
const
  d:array['0'..'9']of byte=(0,1,2,3,2,1,2,3,4,2);
var
  c:char;
  t:word;
begin
  repeat
    read(c);
    inc(t,d[c]);
  until eoln;
  writeln(t);
end.