Viết chương trình nhập vào từ bàn phím xâu kí tự S1 tạo xâu S2 gồm tất cả các chữ cái có trong xâu S1 giữu nguyên thứ tự xuất hiện của chúng và đưa ra

0 bình luận về “Viết chương trình nhập vào từ bàn phím xâu kí tự S1 tạo xâu S2 gồm tất cả các chữ cái có trong xâu S1 giữu nguyên thứ tự xuất hiện của chúng và đưa ra”

1. program Min;
   uses crt;
   var s1,s2:string;
    i:integer;
   begin
    clrscr;
    write(‘Nhap xau: ‘); readln(s1);
    s2:=”;
    for i:=1 to length(s1) do
    if (‘a'<=s1[i]) and (‘z’>=s1[i]) then s2:=s2+s1[i];
    writeln;
    write(s2);
    readln
   end.

   Bạn tham khảo nha 😀 

   Bình luận