uses crt;

var S : string;

    f1, f2 : text;

    T, X, J, i : integer;

begin

clrscr;

assign(f1, 'HSG2.INP'); reset(f1);

assign(f2, 'HSG2.OUT'); rewrite(f2);

readln(f1, S);

S := S + ' '; T := 0; i := 1;

while i <= length(S) do

    begin

        if S[i] = 'H' then X := 1

        else if S[i] = 'O' then X := 16

        else if S[i] = 'N' then X := 14

        else if S[i] = 'C' then X := 12

        else break;

        if S[i + 1] in ['2' .. '9'] then 

            begin

                val(S[i + 1], J);

                i := i + 2;

            end

        else 

            begin

                i := i + 1;

                if (S[i + 1] = ' ') then J := 1

                else J := 1;

            end;

        T := T + X * J;

    end;

writeln(f2, T);

close(f1); close(f2);

readln

end.

Thuật toán:

`***` Tạo sm = 0 (chứ kết quả của bài toán)

`***` Duyệt qua các phần tử trong chuỗi

    `***` Nếu s[i]='H' thì sm+1

    `***` Nếu s[i]='O' thì sm+16

    `***` Nếu s[i]='N' thì sm+14

    `***` Nếu s[i]='C' thì sm+12

    `***` Nếu s[i] là số thì sm `xx` với int(s[i])

`Code:`

i = open("H2O.INP",'r')
o = open("H2O.OUT",'w')
s = i.readline()
i.close()
sm = 0
for i in s:
    if i=='H':
        sm+=1
    elif i=='O':
        sm+=16
    elif i=='N':
        sm+=14
    elif i=='C':
        sm+=12
    else:
        sm*=int(i)
o.write(str(sm))

`***` Nếu dùng ngôn ngữ lập trình khác thì bảo nhé!