Viết câu lệnh in ra 5 số tự nhiên liên tiếp bắt đầu bằng số 1.

2 câu trả lời

-sử dụng câu lệnh lặp For-to-do:

for i:=1 to 5 do

  write(i,',');

-sử dụng câu lệnh lặp while-do:

i:=0;

while 1<=5 do

 begin

    i:=i+1;

    write(i,',');

  end;

Câu lệnh : For i:= 1 to 5 do 

Write('5 so tu nhien tu 1 la',i);

Hoặc 

While i>=5 do 

Begin

Inc(i);

Write('5 so tu nhien tu 1 la',i); 

End;