nhập vào 1xâu bất kì từ bản phím đưa ra màn hình câu có 1 kì tự ( là kí từ đầu tiên của xấu nhập vào ) VD input lop11a4 Output : l

0 bình luận về “nhập vào 1xâu bất kì từ bản phím đưa ra màn hình câu có 1 kì tự ( là kí từ đầu tiên của xấu nhập vào ) VD input lop11a4 Output : l”

1. program oken;
   uses crt;
   var s:string;
       i,dem:integer;
   begin
           write(‘nhap 1 xau bat ky: ‘); readln(s);
           write(‘ky tu dau tien trong xau la: ‘);
           for i:=1 to length(s) do
                   if (‘A'<=s[i]) and (‘z’>=s[i]) then
                           begin
                                   write(s[i]);
                                   dem:=dem+1;
                                   if dem=1 then break;
                           end;
           readln;
   end.

   Bình luận

2. uses crt;
   var s:string;
       i,dem:integer;
   begin
      write(‘Nhap xau: ‘); readln(s);
      write(‘Ky tu dau tien trong xau la: ‘);
      for i:=1 to length(s) do
      if (‘A'<=s[i]) and (‘z’>=s[i]) then
      begin
         write(s[i]);
         dem:=dem+1;
         if dem=1 then break;
      end;
      readln
   end.

   Bình luận