Giúp mình viết chương trình Pascal khi nhập một chuỗi “cấm không được đổ rác” in ra màn hình “rác đổ được không cấm” vs ạ

0 bình luận về “Giúp mình viết chương trình Pascal khi nhập một chuỗi “cấm không được đổ rác” in ra màn hình “rác đổ được không cấm” vs ạ”

1. program Min;
   uses crt;
   var st:string;
   begin
      clrscr;
      repeat
      begin
         writeln(‘Nhap mot chuoi: ‘); readln(st);
      end;
      until st=’Cam khong duoc do rac’;
      if st=’Cam khong duoc do rac’ then writeln(‘Rac do duoc khong cam’);
      readln
   end.

   Thật sự đề này khá là thú vị a 😀 

   Bình luận