Mn giúp mình với mình không biết viết pascal???? Viết chương trình vẽ hình chữ nhật và điền dấu sau như sau ***** ***** *****

0 bình luận về “Mn giúp mình với mình không biết viết pascal???? Viết chương trình vẽ hình chữ nhật và điền dấu sau như sau ***** ***** *****”

1. Program vd;

   Var  i,j : integer;

   Begin

             Clrscr;

              Write (nhap * );

               Readln(*);

                If (hinhchunhat,*=,);

   End.

   Bình luận

2. var i,j: integer;
   begin
   for i:= 1 to 3 do
   begin
   for j:= 1 to 5 do
   write(‘*’);
   writeln;
   end;
   end.

   Bình luận