Question

[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 ạ?

Answer 1

[Kiều Vũ Linh]

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

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