Tin học Passcal 11

[Vy Mity]

[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.

viết chương trình tính tổng các số chia hết cho 3 hoặc 5 từ 1 đến n(1<N<50)

 

[iceghost]

Mình chỉ viết đoạn quan trọng thôi, khai báo hay nhập gì đó bạn tự viết nhá

...
for i:=1 to N do
  if (i mod 3 = 0) or (i mod 5 = 0) then S:=S+i;
...

 

[Vy Mity]

Mình chỉ viết đoạn quan trọng thôi, khai báo hay nhập gì đó bạn tự viết nhá

...
for i:=1 to N do
  if (i mod 3 = 0) or (i mod 5 = 0) then S:=S+i;
...

Bạn có thể làm thêm phần điều kiện không điều kiện 1<n<50 không

 

[Tạ Đặng Vĩnh Phúc]

0 < N < 50 là điều kiện đầu bài mà bạn ?

 

[Vy Mity]

0 < N < 50 là điều kiện đầu bài mà bạn ?

dạ đúng rồi ý em là làm sao cho khi nó dò đến N = 50 thì nó dừng lại á anh. help em