[Pascal 8] Tính tổng ♥

[nynacateryna]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Help mình bài này với mấy t/i
Tính tổng các số tự nhiên chia hết cho ba

 

[kool_boy_98]

[[Pascal 8] Tính tổng ♥
Help mình bài này với mấy t/i
Tính tổng các số tự nhiên chia hết cho ba

Bài này có thần kim cương cũng chả làm được bạn à!
Như bạn đã biết không thể tìm được hết các số tự nhiên chia hết cho 3 vậy thì tính tổng của chúng bằng niềm tin à?
Bạn phải cho 1 giới hạn cụ thể nào đó thì mới làm được nhé! VD: Nhập vào 1 số n và tính tổng các số từ 1 đến n chia hết cho 3. Họa may như thế còn làm được!

 

[programmingandhacked]

integer s=0;
if(so%3==0)
s=s+so;
xuất ra S :x
hình như bạn ghi thiếu cái đề rồi thì phải

 

[minhtuyb]

Nếu các số này ở trong một khoảng nào đó thì bạn nên dùng vét cạn
Vì đề trục trặc nên không viết được :-S

 

[nguyenhungtu9x]

Bạn nói tính tổng các số tự nhiên chia hết cho 3 nhưng bạn phải nghĩ xem có bao nhiêu số tự nhiên. Cho bạn đếm đến khi vũ trụ này bị hủy diệt cũng không hết vì nó vô hạn.

Còn nếu bạn cho nó tính trong 1 khoảng thì mình có thể tính được: Như các số tự nhiên từ 0 đến n thì mình có thể làm như sau:

PROGRAM BT1;
USE crt;
VAR S,n,i: word;
BEGIN
Clrscr;
S:= 0; i:=0;
Write(‘Nhập n = ‘); readln(n);
For i:= 1 to n do
If (i mod 3) = 0 then S:= S + i;
Write(‘ Tong cac so tu nhien chia het cho 3 la: ‘, S);
Readln
END.

 

[naxubalumi]

chữa lại tí nèk

Bạn nói tính tổng các số tự nhiên chia hết cho 3 nhưng bạn phải nghĩ xem có bao nhiêu số tự nhiên. Cho bạn đếm đến khi vũ trụ này bị hủy diệt cũng không hết vì nó vô hạn.

Còn nếu bạn cho nó tính trong 1 khoảng thì mình có thể tính được: Như các số tự nhiên từ 0 đến n thì mình có thể làm như sau:

PROGRAM BT1;
USE crt;
VAR S,n,i: word;
BEGIN
Clrscr;
S:= 0; i:=0;
Write(‘Nhập n = ‘); readln(n);
For i:= 1 to n do
If (i mod 3) = 0 then S:= S + i;
Write(‘ Tong cac so tu nhien chia het cho 3 la: ‘, S);
Readln
END.

mình sửa lại tí chỗ mà bạn viết nè s:= s + a chứ