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.
Var a,b:integer;
Const c =3;
Begin
a :=200;
b :=a/c;
write(b);
readln; (ủa readln cái j)
end.
Đ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'.
1/ 
Giá trị sau khi chạy đoạn chương trình là:
2/ Tương tự, có lẽ là ntn đúng không:
a:=3 ;b:=3;c:=0; if a=b then c:=a-b+1 else c:=c+1;
KQ: 1
1: sau khi thực hiện cau lệnh thì giá trị của a=16
2:sau khi thực hiện chương trình trên thì giá trị của c=2
C.26
Cách giải:
Ban đầu gán a=15
Tiếp theo gán a=a+c <=> a=15+10 = 25
Tiếp theo gán a=a+1 <=> a=25+1=26
Vậy kết quả cuối cùng của biến a là 26. Chọn C
Thank