uses crt;

var n,i,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

t:=0;

for i:=1 to n do 

  if i mod 3<>0 then t:=t+i;

writeln(t);

readln;

end.

Viết chương trình : - Nhập vào các số nguyên N - Tính tích các số chia hết cho 4 từ 1 đến N và xuất kết quả ra màn hình - Thực hiện đếm xem có bao nhiêu số chia hết cho 4 từ 1 đến N và xuất kết quả ra màn hình Câu 2 : Viết chương trình : - Nhập vào các số nguyên N - Tính trung bình cộng các số từ 1 đến N

Viết chương trình : - Nhập vào các số nguyên N - Tính tích các số chia hết cho 4 từ 1 đến N và xuất kết quả ra màn hình - Thực hiện đếm xem có bao nhiêu số chia hết cho 4 từ 1 đến N và xuất kết quả ra màn hình Câu 2 : Viết chương trình : - Nhập vào các số nguyên N - Tính trung bình cộng các số từ 1 đến N

uses crt;

var n,i,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

t:=0;

for i:=1 to n do 

  if i mod 3<>0 then t:=t+i;

writeln(t);

readln;

end.

#include <bits/stdc++.h>

using namespace std;

long long n,i,t;

int main()

{

cin>>n;

t=0;

for (i=1; i<=n; i++)

if (i%3==0) t+=i;

cout<<t;

return 0;

}

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n,t=0;

cin>>n;

for (int i=1; i<=n; i++)

if (i%6==0) t+=i;

cout<<t;

return 0;

}

N = int(input("Nhập số lượng phần tử của dãy N (>50): "))

while N <= 50:

         N = int(input("Nhập lại số lượng phần tử của dãy N (>50): "))

# Nhập vào dãy số 

danh_sach = []

for i in range(N):

         danh_sach.append(int(input("Nhập số thứ %d: " % (i+1))))

# In ra dãy số vừa nhập

print("Dãy số vừa nhập:")

for i in danh_sach:

         print(i, end=' ')

# Nhập vào số nguyên x

x = int(input("nNhập vào số nguyên x: "))

# In ra các số chia hết cho x 

print("Các số chia hết cho x là:")

for i in danh_sach:

         if i % x == 0:

                  print(i, end=' ')