Viết chương trình in ra màn hình một dãy số theo hàng ngang từ 10 đến n (đk n>10) và n được nhập từ bàn phím. 2. Viết chương trình in ra màn hình một dãy số theo hàng dọc từ 10 đến n (đk n>10) và n được nhập từ bàn phím.

- Chương trình 1 :

uses crt;

var i, n : integer;

begin

clrscr;

write('Nhap so n = '); readln(n);

if n > 10 then begin i := 10;

while i <= n do begin write(i,' ');

i := i + 1; end; end;

readln

end.

- Chương trình 2 :

uses crt;

var i, n : integer;

begin

clrscr;

write('Nhap so n = '); readln(n);

if n > 10 then begin i := 10;

while i <= n do begin writeln(i);

i := i + 1; end; end;

readln

end.

Câu 1:

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

Câu 2:

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