giúp em với

[brave skiff]

giải theo kiểu pascal 8 ạ

[opal raft]

Ngày mai anh sẽ gửi em mã code cùng câu trả lời nhé

Nhớ ib cho anh

[worldly schooner]

Bài toán: Tính tổng của 100 số tự nhiên đầu tiên.

Thuật toán:

Khởi tạo biến tổng là 0.
Khởi tạo biến i là 1.
Lặp lại lệnh sau cho đến khi i > 100:
Cộng i vào tổng.
Tăng i lên 1.
In ra giá trị của tổng.
Pascal code:

var sum, i: integer;
begin
sum := 0;
for i := 1 to 100 do
sum := sum + i;
writeln(sum);
end.

[worldly schooner]

a) Nếu X mod 3 = 2, thì X sẽ được tăng lên 5 đơn vị, vì vậy giá trị của X sau khi thực hiện lệnh này sẽ là 8 + 5 = 13.

b) Nếu X div 7 = 1, thì lệnh bên trong khối begin...end sẽ được thực hiện. Trong khối này, trước tiên X sẽ được lũy thừa bậc 2, tức là X sẽ trở thành 64. Sau đó, X sẽ được tính căn bậc hai của 64 + 17, tức là X sẽ trở thành 9. Vì vậy, giá trị của X sau khi thực hiện lệnh này sẽ là 9.

Lưu ý: Trong câu b, nếu X div 7 không bằng 1 thì không có gì xảy ra và giá trị của X sẽ không thay đổi.