VCT in ra màn hình xâu gồm các ký tự và tổng các chữ số 0 trong xâu

Viết chương trình nhập vào một xâu in ra màn hình xâu gồm các ký tự và tổng các chữ số 0 trong xâu.

Ôn tập tên

Tên dùng để đặt cho tên chương trình, hằng, kiểu, biến, chương trình con… tên được chia thành 2 loại.

– Tên chuẩn đã được PASCAL đặt trước, chẳng hạn các hàm số SIN, COS, LN,… hằng số PI, kiểu INTEGER, BYTE, REAL…

– Tên do người dùng tự đặt.

+ Dùng bộ chữ cái, bộ chữ số và dấu gạch dưới để đặt tên

+ Bắt đầu bằng chữ cái hoặc dấu gạch dưới ( _ ) sau đó là chữ cái hoặc chữ số.

+ Không có khoảng trống ở giữa tên

+ Không được trùng với từ khoá.

+ Độ dài tối đa của tên là 127 ký tự, tuy nhiên cần đặt sao cho tên gọn và có ý nghĩa.

+ Pascal không bắt lỗi việc đặt tên trùng với tên chuẩn, nhưng khi đó ý nghĩa của tên chuẩn không còn giá trị nữa => ko nên đặt trùng tên chuẩn

Lưu ý: Pascal không phân biệt chữ hoa và chữ thường trong từ khóa, tên chuẩn hay tên. Ví dụ “BEGIN” hay “Begin” hay “BeGin” là như nhau. Tuy nhiên chúng ta nên tập thói quen viết một cách thống nhất tên trong toàn bộ chương trình.

Bài giải

Program Dem_kytu;

Uses crt;

Var I,dem_chu, dem_so, tong: integer;

S: string;

Begin

    Clrscr;

    Write('Nhap xau S: '); Readln(S);

    Dem_so:=0;

    For i:=1 to length(S) do

    If S[i] in ['0'..'9'] then Dem_so:=Dem_so+1;    
    
    Writeln('Trong xau S co tat ca ',Dem_so,' so');
    
    For i:=1 to length(S) do
    
    If S[i] <> #32 then  
        Writeln('Ky tu ',S[i],' trong S');        
    
    readln;

End.

Hình minh họa