viết chương trình xóa các kí tự chữa cái trong câu

0 bình luận về “viết chương trình xóa các kí tự chữa cái trong câu”

1. program xoachucai;

   uses crt;

   var st:string;

         i:byte;

   begin

   clrscr;

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

   i:=1;

   while i<=length(st) do

    if (st[i] in [‘a’..’z’]) or (st[i] in [‘A’..’Z’]) then delete(st,i,1)

    else inc(i);

   write(‘Xau sau khi xoa chu cai la: ‘,st);

   readln

   end.

   Bình luận

2. uses crt;
   var s:string;i:byte;
   begin
           clrscr;
           write(‘nhap cau chu: ‘);readln(s);
           For i:=1 to length(s)-1 do
           s[i]:=s[i+1];
           if s[i] = s[i+1] then s[i+1]:= ‘ ‘;
           write(s);
           readln;
   end.

   @danhle

   Bình luận