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 )

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 )”

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

   Bình luận