Viết chương trình nhập vào 1 xâu, tạo xâu từ xâu vừa nhập bao gồm các kí tự khác chữ, hiển thị kết quả ra màn hình

0 bình luận về “Viết chương trình nhập vào 1 xâu, tạo xâu từ xâu vừa nhập bao gồm các kí tự khác chữ, hiển thị kết quả ra màn hình”

1. program khac_chu;

   uses crt;

   var s,st:string;

   begin

          clrscr;

          write(‘Nhap xau: ‘);  readln(s);

          st:=”;

          for i:=1 to length(s) do

                 if not(s[i] in [‘a’..’z’]) and not(s[i] in [‘A’..’Z’]) then st:=st+s[i];

          write(‘Xau moi la: ‘,s2);

          readln;

   end.

   Bình luận

2. 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ình luận