Viết công thức nhập từ bàn phím 1 xâu kí tự s (s<=200) in xâu và nhập ra màn hình

0 bình luận về “Viết công thức nhập từ bàn phím 1 xâu kí tự s (s<=200) in xâu và nhập ra màn hình”

1. uses crt;
   var s:string;
   begin
      clrscr;
      repeat
      begin
         write(‘Nhap xau s: ‘);
         readln(s);
      end;
      until length(s)<=200;
      write(s);
      readln
   end.

   Bình luận