Câu 1: Cho biết kết quả biến S đoạn chương trình sau P:=1; S:=0; While S<15 do Begin P:=P+1; S:=S+P; End; Câu 2: Chương trình sau cho kết quả thế nào ?Vì sao? Var a, b, S: integer; begin a:=50; b:=27; while b< a do S:=S+a-b; write(„tong S=‟, S); end.
1 câu trả lời
1/
S=20
2/
Chương trình â sẽ ko chạy đc Do
-Thứ nhất ở đoạn write Ko dùng dấu "
- Thứ hai ở ct thiếu readln ở cuối
- Thứ ba là lỗi tràn bộ nhớ (code 201) Do mình chạy rồi