viết chương trình nhập vào số nguyên N.In ra màn hình từ số 1 đến số N mỗi số trên một dòng.VD: N=5--> kết quả trên màn hình: 1 2 3 4 ai giúp mình trả lời nhanh với

2 câu trả lời

Program BTT;
Uses crt;
Var n,i: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do Writeln(i);
        Readln
End.

Program bt;
Uses crt;
Var n,i:integer;
Begin
        Clrscr;
        Write('Nhap N: '); Readln(n);
        For i:=1 to n do writeln(i);
        Readln;
End.