Viết chương trình sử dụng lệnh while do để in ra màn hình chữ Turbo Pascal 5 lần

0 bình luận về “Viết chương trình sử dụng lệnh while do để in ra màn hình chữ Turbo Pascal 5 lần”

1. program oken;
   uses crt;
   var i: byte;
   begin
           clrscr;
           i:=1;
           while i<=5 do
                   begin
                           writeln(‘Turbo Pascal’);
                           i:=i+1;
                   end;
           readln;
   end.

   Bình luận

2. uses crt;
   var i:byte;
   begin
      clrscr;
      i:=1;
      while i<=5 do
      begin
         writeln(‘Turbo Pascal’);
         i:=i+1;
      end;
      readln
   end.

   Bình luận