Chào các bạn, mình có câu hỏi muốn hỏi như này, mình viết chương trình như sau, tính tích 30 số nguyên đầu tiên:
program haibabon;
uses crt;
var s,i,n: integer;
begin
clrscr;
s:=1;
i:=1;
while i<=30 do begin
s:=s+i;
i:=i+1;
end;
write (s);
readln;
end.
Mình không biết vì sao nó in ra bằng 0, mà mình nhập hai lần câu lệnh i:=i+1 thì lại cho ra kq đúng tức là:
begin
s:=s+i;
i:=i+1;
i:=i+1;
end;
thì lại cho ra kq đúng. à