Viết chương trình đọc xâu S không quá 200 kí tự từ tệp BT2.INP. Đếm số lượng các kí tự số trong S và ghi ra file BT2.OUT, tạo xâu mới gồm các kí...

Viết chương trình đọc xâu S không quá 200 kí tự từ tệp BT2.INP. Bài tập này được giải như sau:

program codevodoi;
uses crt;
var fo,fi:text;
    S,xau:string[200];
    i,d:byte;
begin
    assign(fi,'BT2.INP');
    reset(fi);
    assign(fo,'BT2.OUT');
    rewrite(fo);

    read(fi,S);
    
    { Cau a }
    d:=0;
    for i:=1 to length(S) do
        if S[i] in ['0'..'9']
            then d:=d+1;
    write(fo,'So luong cac ki tu so la: ',d);
    { Cau b }
    for i:=1 to length(S) do
        if S[i] in ['a'..'z']
            then xau:=xau+S[i];
    writeln(xau);
    close(fi);
    close(fo);
    readln;
end.

Ngoài ra chúng ta còn có thể viết chương trình giải bài toán Pascal trên bằng nhiêu phương pháp tối ưu hơn.