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.

18 tháng 4 2022

var a:array [1..100] of integer;

i,n,dem:integer;

begin

write('Nhap so luong so N = ');readln(n);

for i:=1 to n do

begin

write('Nhap vao so thu ',i,': ');readln(a[i]);

if a[i] mod 3 = 0 then dem:=dem+1;

end;

write('Co ',dem,' so chia het cho 3');

readln;

end.

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n,dem;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

dem=0;

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

if (a[i]%3==0) dem++;

cout<<dem;

return 0;

}

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ố")

15 tháng 3 2023

Var i,d,so:integer;

Begin

For i:=1 to 10 do

Begin

Write('so thu ',i,' = ');readln(so);

If so mod 5 = 0 then d:=d+1;

End;

Write('Co ',d,' so chia het cho 5');

Readln;

End.

18 tháng 3 2023

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=' ')

25 tháng 3 2021

Mọi người giúp e với ạ

 

 

uses crt;

var a:array[1..20]of integer;

i,n,tb,dem:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

tb:=0;

dem:=0;

for i:=1 to n do 

  if a[i] mod 3=0 then

begin

tb:=tb+a[i];

inc(dem);

end;

writeln('Trung binh cong cac so chia het cho 3 la: ',tb/dem:4:2);

readln;

end.

10 tháng 4 2021

Program HOC24;

var d,i,n: integer;

a: array[1..1000] of integer;

t: longint;

function nt(x: longint): boolean;

var j: longint;

begin

nt:=true;

if (x=2) or (x=3) then exit;

nt:=false;

if (x=1) or (x mod 2=0) or (x mod 3=0) then exit;

j:=5;

while j<=trunc(sqrt(x)) do

begin

if (x mod j=0) or (x mod (j+2)=0) then exit;

j:=j+6;

end;

nt:=true;

end;

begin

write('Nhap N: '); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

d:=0; t:=0;

for i:=1 to n do

if nt(a[i]) then

begin

d:=d+1;

t:=t+a[i];

end;

writeln('Co ',d,' so nguyen to trong day');

write('Tong cac so nguyen to trong day la: ',t);

readln

end.

uses crt;

var a:array[1..1000]of integer;

i,n,dem,t,j,kt:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

dem:=0;

t:=0;

for i:=1 to n do 

  if a[i]>1 then 

begin

kt:=0;

for j:=2 to a[i]-1 do 

 if a[i] mod j=0 then kt:=1;

if kt=0 then

begin

inc(dem);

t:=t+a[i];

end;

end;

writeln('So luong so nguyen to la: ',dem);

writeln('Tong cac so nguyen to la: ',t);

readln;

end.