viết chương trình nhập a. tạo b bằng cách loại bỏ các số từ 0 đến 9 có trong a

0 bình luận về “viết chương trình nhập a. tạo b bằng cách loại bỏ các số từ 0 đến 9 có trong a”

1. program taoxau;

   uses crt;

   var a,b:string;

         i:byte;

   begin

          clrscr;

          write(‘Nhap a: ‘);  readln(a);

          b:=”;

          for i:=1 to length(a) do

                 if not(a[i] in [‘0’..’9′]) then b:=b+a[i];

          write(‘Xau b la: ‘,b);

          readln;

   end.

   Bình luận

2. Program loai;

   Var a,b:string;

   i:integer;

   Begin

   writeln(‘nhap a’);readln(a);

   For i:=1 to length(a) do 

   if a[i] in [‘a’..’z’]+[‘A’..’Z’] then b:=b+a[i];

   Writeln (b);

   readln;

   end.

   Bình luận