#mình gửi code c++ và code pascal 

#nếu không hiểu có thể cmt và hỏi mình nhá 

#nhớ vote mình 5 sao tym ctlhn nhé <3 

code pascal 

program demsoluong;
uses crt;
var i,a,dem : integer;                //khai bao theo kieu nguyen 
begin
clrscr;
write('nhap a : ');                     //nhap a
readln(a);
for i:=1 to a do if                   // chay tu i=1 den a 

i mod 3 =0 then                   // dieu kien neu i chia het cho 3

dem:=dem+1;                     // dem so chia het cho 3 
write('so luong so chia het cho 3 la : ',dem);
readln
end.

code c++

#include <bits/stdc++.h>
#define int long long 
using namespace std;
main()
{
 int a,n,dem=0;  // khai bao bien a,n và biến dem=0 
 cin>>a;             // nhap a 
 for(int i=1;i<=a;i++)   //chay tu i =1 den a 
  if(i%3==0)   // dieu kien neu i chia het cho 3
   dem++;     // dem so chia het cho 3 
  cout<<dem;
  return 0;
}

#include<iostream>

using namespace std;

int a,dem;

cin>>a;

for(int i =1;i<=a;i++){
if(i%3==0){

dem++;

}

}

cout<<dem;

}