lập trình in ra mảng A gồm n phần tử liên tiếp từ A đến B (A,B nhập từ bàn phím)

0 bình luận về “lập trình in ra mảng A gồm n phần tử liên tiếp từ A đến B (A,B nhập từ bàn phím)”

1. Xin nhat

   Program aa;

   Uses crt;

   VAR A,B,n: Integer;

   BEGIN

    clrscr;

       Write(‘Nhap A: ‘);Readln(A);

       Write(‘Nhap B: ‘);Readln(B);

           For n:= A to B do

        Write(n,’  ‘);

   Readln

   END.

   Bình luận

2. Program aa;

   Uses crt;

   var $A,B,n:Integer;$

   $begin$

    $clrscr;$

     write(‘nhập $A:’);readln(A);$

     write(‘nhập $B:’);readln(B);$

           For n:= A to B do

        Write(n,’  ‘);

   $FReadln$

   $#END.$

   Xin hay nhất 

   Bình luận