

Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!

Đây là câu trả lời đã được xác thực
Câu trả lời được xác thực chứa thông tin chính xác và đáng tin cậy, được xác nhận hoặc trả lời bởi các chuyên gia, giáo viên hàng đầu của chúng tôi.
Câu 9,Do câu lệnh chạy từ i=1 nên S= 0+1=1 sau đó kết thúc vì chỉ lặp đến khi i =1.Vậy S =1 => Chọn C
Câu 10:D.phép so sánh vì để lặp với số lần chưa biết trước thì không thể để điều kiện là biểu thức đơn hay câu lệnh đơn hoặc ghép được.
Câu 11:C. While < điều kiện > do < câu lệnh >;
Câu 12: B. Cùng kiểu với các biến trong câu lệnh
Câu 13: A.11
Khi điều kiện đạt đến Tong=10 thì thực hiện phép gán Tong:=Tong+1 nên in ra kết quả Tong=11
Câu 14: B
Vì a được gán bằng 10 mà a<11 thì thực hiện lệnh in ra màn hình a => lặp vô tận
Câu 15: B
Vòng lặp For phải biến nguyên
Câu 16: A. Học bài cho tới khi thuộc bài
Phần Tự Luận
Câu 1: Tên chương trình không đúng quy định => sửa Program cau1;
Writeln( Nhap gia tri n=); thiếu hai dấu nháy đơn => sửa Writeln( 'Nhap gia tri n=');
Thiếu lệnh nhập n => sửa lại "Readln(n); "
Dùng while-do nên s:=s+n/2; n:=n-1; phải nằm trong chương trình con
=> sửa begin s:=s+n/2; n:=n-1; end;
write(tong s = , s:8:2); => thiếu dấu nháy đơn
=> sửa write('tong s = ', s:8:2);
Câu 2:
-Cú pháp :
+ While <điều kiện> do <câu lệnh>;
- Hoạt động của câu lệnh :
+ Trước tiên,kiểm tra điều kiện.Nếu điều kiện đúng thì thực hiện câu lệnh sau do sau đó tiếp tục quay lại kiểm tra điều kiện và thực hiện nếu đúng.Nếu điều kiện sai thì kết thúc lặp.
Câu 3:
Uses crt;
Var n,i:integer;
S:longint;
Begin
Clrscr;
S:=0;
Write('n='); Readln(n);
For i:=1 to n do S:=S+sqr(i);
Writeln('Tong binh phuong S la',S);
Readln
End.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin