câu 1:
bước 1: nhập n
bước 2: đổi n ra chuỗi st bằng cách sử dụng hàm str(n,st)
bước 3: d:=length(st);t:=0;
bước 4: chạy for i đi từ 1 tới d
bước 5: đổi st[i] ra số bằng cách sử dụng hàm val(st[i],x,y);
bước 6: t:=t+x;
bước 7: viết t ra màn hình
bước 8: kết thúc
câu 2:
bước 1: nhập n
bước 2: t:=0;
bước 3: quét for i đi từ 1 tới n
bước 4: nếu n chia hết cho i thì t:=t+i;
bước 5: viết t ra màn hình
bước 6: kết thúc