Cho đoạn chương trình sau, hãy chỉ ra lỗi sai và sửa lại cho đúng Program chuongtrinh Uses crt. Var i,n,s : integer; Begin S:=0 Writeln('Nhap so=',n) For i:=1 to n do s:=s+i; Writeln('tong la:',s) End.
2 câu trả lời
*Lỗi sai:
- Dòng 1: Thiếu ";" ở cuối
- Dòng 2: Thay "." bằng ";"
- Dòng 5: Thiếu ";" ở cuối
- Dòng 6: Sửa lại đoạn này là: write('Nhap so n = '); readln(n);
- Thêm "Readln" vào trước "End." để đọc chương trình
*Sửa:
program chuongtrinh;
uses crt;
var i, n,s: integer;
begin
clrscr; {Có thể có hoặc không}
S:=0;
Write('Nhap n = '); readln(n);
For i:=1 to n do s:=s+i;
Writeln('Tong la: ',s);
readln
end.
sau program thiếu ,
uses crt sau đó là ; chứ k là .
s:=0 thiếu ;
sau written('....',n) thiếu ;
thiếu readln; trc end.
đoạn ct hoàn chỉnh là
Program chuongtrinh;
Uses crt.;
Var i,n,s : integer;
Begin
S:=0;
Writeln('Nhap so=',n);
For i:=1 to n do s:=s+i;
Writeln('tong la:',s);
readln;
End.
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
