Em hãy tìm ra lỗi sai và sửa lại cho chính xác chương trình in ra các số
while i <= n do
begin
if n mod 50 then write(i:3,',')
i:=1+1;
end
readln
end.
Em hãy tìm ra lỗi sai và sửa lại cho chính xác chương trình in ra các số
while i <= n do
begin
if n mod 50 then write(i:3,',')
i:=1+1;
end
readln
end.
dòng 3: thiếu ; ở cuối câu.
dòng 3: điều kiện trong if-then bị sai.
dòng 4: câu lệnh gán sai (vì nó sẽ làm vòng lặp lặp vô hạn lần)
dòng 5: thiếu ; cuối câu
sửa:
while i <= n do
begin
if (n mod 5=0) then write(i:3,’,’);
i:=i+1;
end;
readln
end.
Lỗi sai: (phần gạch chân)
while i <= n do
begin
if n mod 50 then write(i:3,’,’) -> Sai điều kiện, thiếu dấu chấm phẩy
i:=1+1; -> Gán giá trị sai
end -> Thiếu dấu chấm phẩy
readln
end.
Sửa lỗi:
while i <= n do
begin
if n mod 5=0 then write(i:3,’,’);
i:=i+1;
end;
readln
end.
Học tốt!