Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Đáp án D
Bạn sửa lại đề chút: ketqua := 1; While ketqua<2 do writeln(ketqua);
Vì đây là vòng lặp với số lần chưa biết trước (while..do) trong câu lệnh chỉ có in ra biến ketqua mà không có lệnh nào làm thay đổi giá trị của biến ketqua, mà điều kiện ketqua<2 (luôn luôn đúng) -> vòng lặp vô hạn -> in vô hạn số 1 trên mỗi dòng (vì dùng writeln)
Đoạn chương trình trên sẽ in ra màn hình chữ 'A' năm lần.
Lý do là vì chương trình bắt đầu bằng việc gán giá trị 5 cho biến i. Sau đó, vòng lặp while được sử dụng để kiểm tra điều kiện i < 10. Vì giá trị ban đầu của i là 5 và không có lệnh nào thay đổi giá trị của i trong phạm vi vòng lặp, nên điều kiện i < 10 vẫn đúng.
Trong thân vòng lặp, câu lệnh Writeln('A') được thực thi, in ra chữ 'A' trên màn hình. Tiếp theo, biến i được tăng lên 1 (i := i + 1). Sau đó, vòng lặp tiếp tục lặp lại và kiểm tra điều kiện. Quá trình này lặp lại cho đến khi giá trị của i đạt đến 10.
Vì vậy, trong quá trình thực thi chương trình, lệnh Writeln('A') được thực hiện 5 lần, và do đó sẽ in ra màn hình 5 chữ 'A'.
Câu 1:
Program HOC24;
var i,p: integer;
t: longint;
begin
write('Nhap P: '); readln(p);
t:=0;
for i:=1 to p do if i mod 2<>0 then t:=t+i;
write('Tong cac so le la: ',t);
readln
end.
B1: Trong các hoạt động sau đây hoạt động nào là hoạt động lặp với số lần chưa biết trước:
A. tính tổng các số tự nhiên từ 1 đến 20.
B. Nhập các số nguyên cho đến khi đủ 50 số
C. Mỗi ngày tập TD 2 lần
D. Nhập dữ liệu từ bàn phím cho đến khi nhập xong dữ liệu khi dừng
B2: Đoạn lệnh sau đây in ra kết quả gì?
s:=0; while s<10 do begin s:=s+1;
Writeln(s); end;
A. In ra các số từ 1 đến 9.
B. In ra các số từ 1 đến 10.
C. In ra các số 1.
D. Không có đáp án đúng.
B3: Hãy cho biết đâu là đoạn lệnh lặp bằng câu lệnh While...do để tính tổng S=1+2+...+10?
A. S:=0; while i<10 do S:=S+i;
B. S:=0; i:=0; while i<11 do begin S:=S+i; i:=i+1; end;
C. S:=0; i:=1; while i do S:=S+i; i:=i+1;
D. S:=0; i:=0; while i<=10 do begin S:=S+i; i:=i+1; end;
Câu D