K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

21 tháng 10 2021

#include <bits/stdc++.h>
using namespace std;
int main() {
int N=100, dem=0;
for(int i=1; i<=N; i++)
    {if(i%3==0) dem+=1;}
cout << dem << endl;
return 0;
}

Chúc bn học tốt!

23 tháng 12 2021

Bài 2: 

uses crt;

var x,i,n,dem:integer;

begin

clrscr;

readln(n);

dem:=0;

for i:=1 to n do 

begin

readln(x);

if x mod 2=0 then inc(dem);

end;

writeln(dem);

readln;

end.

23 tháng 12 2021

Bài 1 đâu ạ

 

5 tháng 4 2023

program Dem_Chia_Het;
var s, i: longint;
begin
  s := 0;
  for i := 10 to 2000 do
  begin
    if i mod 297 = 0 then // Kiểm tra chia hết cho 9, 3, 11
      s := s + 1;
  end;
  writeln('So luong cac so chia het cho 9, 3 va 11 la: ', s);
end.

 

6 tháng 4 2023

count = 0

for i in range(10, 2001):

     if i % 3 == 0 and i % 9 == 0 and i % 11 == 0:

          count += 1

print(count)

26 tháng 3 2023

n = int(input("Nhập n: "))

a = [ ]

for i in range(n):

     a.append(int(input(f"Nhập phần tử a[{i}]: ")))

k = int(input("Nhập k: "))

count_greater = 0

count_divisible_by_three = 0

for num in a:

     if num > k:

          count_greater += 1

     if sum(int(digit) for digit in str(num)) % 3 == 0:

          count_divisible_by_three += 1

print(f"Số lớn hơn {k}: {count_greater} số")

print(f"Số có tổng các chữ số chia hết cho 3: {count_divisible_by_three} số")

#include <bits/stdc++.h>

using namespace std;

long long m,n,i,dem;

int main()

{

cin>>m>>n;

dem=0;

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

if ((I%3==0) or (i%5==0)) dem++;

cout<<dem;

return 0;

}

9 tháng 1 2022

Program tinhtong;
uses crt;
var i, SUM, N : integer;
Begin
Clrscr;
Write('Nhap N: '); Readln(n);
SUM := 0; For i:=1 to N do if (i mod 3 = 0) then SUM:= SUM + i;
Write('Tong la: ', SUM);
Readln;
End.

9 tháng 1 2022

......... ? 

cái gì đấy 

13 tháng 12 2020

uses crt;

var n,i,dem:integer;

begin

clrscr;

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

dem:=0;

for i:=1 to n do

if i mod 7=0 then inc(dem);

writeln('Co ',dem,' so chia het cho 7 trong khoang tu 1 toi ',n);

readln;

end.

13 tháng 12 2020

cảm ơn 

7 tháng 3 2023

 

 

 

7 tháng 3 2023

uses crt;

var i,n,d:longint;

begin 

d:=0;

writeln('nhapn=');read(n);

for i:=1 to n do

begin

if i mod 3=0 then write(i,' ');

if i mod 3=0 then d:=d+i;

end;

writeln('tong=',d);

readln;

end;

uses crt;

var n,i,dem:integer;

begin

clrscr;

readln(n);

dem:=0;

for i:=1 to n do

if i mod 7=0 then inc(dem);

write(dem);

readln;

end.