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