viết chương trì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

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; 

@khongmotai7456

program sotunhien;

               var i: integer; 

begin

for i := 1 to 5 do writeln (i); 

readln;

end. 

Câu hỏi trong lớp Xem thêm