Lập trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
nothing

Viết chương trình tính tích (P) của n số tự nhiên (>0) đầu tiên liên tiếp chia hết cho 3. Với n nhập từ bàn phím.

program nothing_in_here2;
uses crt;
var P,n,x: integer;
begin
clrscr;
readln(n);
P := 1;
for x:=2 to n do
    if x mod 3 = 0 then do P:= P*x;
writeln(P);
readln;
end.

Code lỗi ở đâu vậy ạ?

Kiều Vũ Linh
6 tháng 3 2023 lúc 11:14

Lỗi chỗ câu lệnh:

"If x mod 3 = 0 then do P:=P*x;" (dư chữ do)


Các câu hỏi tương tự
Ho Truong Minh
Xem chi tiết
Ba chú heo con
Xem chi tiết
Cold Wind
Xem chi tiết
NHÓC BOSS GAMING
Xem chi tiết
Lovers
Xem chi tiết
Phan Nhật
Xem chi tiết
Nguyễn Minh Lệ
Xem chi tiết
sunion Ghast
Xem chi tiết
Minh Lệ
Xem chi tiết