Bài 1: viết câu lệnh để in ra màn hình dãy số sau: 1 2 3 ... 10 viết lệnh for i:=1 to 10 do writeln (i); Bài 2: viết câu lệnh để in ra màn hình dãy số sau: 1 2 3 ... 10 ( mỗi số cách 2 khoảng trắng) for i:=1 to 10 do write (i, ' ');

2 câu trả lời

Bài 1:

Program baitap1;

Uses crt;

Var i: integer;

Begin

clrscr;

For i:=1 to 10 do writeln(i);

readln

End.

Bài 2:

Program baitap2;

Uses crt;

Var i: integer;

Begin

clrscr;

For i:=1 to 10 do writeln(i,'   ');

readln

End.

1/

Program BTH;

uses crt;

var i:byte;

Begin

clrscr;

For i:=1 to 10 do

Writeln(i);

readln;

end.

2/

Program BTH;

uses crt;

var i:byte;

Begin

clrscr;

For i:=1 to 10 do write (i, ' ');

readln;

end.

Nếu bạn muốn câu lệnh thì mình đã bôi đen rồi nha