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)
2 câu trả lời
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
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.
