Viết chương trình in ra màn hình 5 lần chữ A theo lệnh while…do

0 bình luận về “Viết chương trình in ra màn hình 5 lần chữ A theo lệnh while…do”

1. uses crt;

   var i:integer;

   begin

   clrscr;

   for i:=1 to 5 do begin writeln(‘A’); 

    readln;

   end.

   Bình luận

2. uses crt;

   var i: byte;

   Begin

            clrscr;

            i:=1;

            while i<=5 do

            begin

                     write(‘A  ‘);

                     i:=i+1;

            end;

            readln

   End.

   Bình luận