Viết chương trình nhập n số nguyên từ bàn phím. Đếm các số vừa chia hết cho 2 vừa chia hết cho 3. In kết quả ra màn hình các số thỏa mãn điều kiện trên. program chia_het

3

CT

crazy Trongthanh

20 tháng 10 2018

chắc có hoặc ko?

CT

crazy Trongthanh

20 tháng 10 2018

DT

Đạt Trần

18 tháng 5 2021

viết chương trình nhập từ bàn phím số nguyên dương n và dãy số nguyên a1 a2 đến an đưa dãy vừa nhập ra màn hình tính tổng các số chia hết cho 7 đưa kết quả ra màn hình

#Tin học lớp 11

1

NL

Nguyễn Lê Phước Thịnh

18 tháng 5 2021

uses crt;

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

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

for i:=1 to n do

write(a[i]:4);

writeln;

t:=0;

for i:=1 to n do

if a[i] mod 7=0 then t:=t+a[i];

writeln('Tong cac so chia het cho 7 la: ',t);

readln;

end.

viết chương trình nhập vào mảng một chiều.gồm phần tử số nguyên N được nhập từ bàn phím. N nguyên, dương, N<=10A, in mảng vừa nhập ra màn hìnhB, tính tổng các phần tử có giá trị chẵn, in kết qua ra màn hìnhC, đếm số lượng các phần tử chia hết cho 3D, tính trung bình cộng các số có giá trị lẻE, in ra màn hình các phần tử là số nguyên tốmong được giúp...

NH

nguyễn hoàng long

21 tháng 1 2022

#Tin học lớp 11

1

NH

nguyễn hoàng long

21 tháng 1 2022

viết chương trình chứ không phải chọn đáp án

NL

Nguyễn Lê Phước Thịnh

21 tháng 1 2022

#include <bits/stdc++.h>

using namespace std;

long long a[100],n,i,t,t1,dem,dem1;

//chuongtrinhcon

bool ktnt(long long x)

{

if (x<=1) return(false);

for (int i=2; i*i<=x; i++)

if (x%i==0) return(false);

return true;

}

//chuongtrinhchinh

int main()

{

cin>>n;

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

{

cin>>a[i];

}

for (i=1; i<=n; i++) cout<<a[i]<<" ";

cout<<endl;

t=0;

for (i=1; i<=n; i++) if (a[i]%2==0) t=t+a[i];

cout<<t<<endl;

dem=0;

for (i=1; i<=n; i++) if (a[i]%3==0) dem++;

cout<<dem<<" ";

t1=0;

dem1=0;

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

if (a[i]%2!=0)

{

t1+=a[i];

dem1++;

}

cout<<fixed<<setprecision(2)<<(t1*1.0)/(dem1*1.0)<<endl;

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

if (ktnt(a[i])==true) cout<<a[i]<<" ";

return 0;

}

Bài 6: Viết chương trình nhập vào từ bàn phím số nguyên dương N, sử dụng câu lệnh điều kiện và câu lệnh lặp for to do để tính tổng các giá trị chia hết cho 2 và chia hết cho 3 trong phạm vi từ 1 dến N, sau đó in kết quả ra màn hình....

VT

Võ Tấn Trường Phạm

6 tháng 3 2023

1

NL

Nguyễn Lê Phước Thịnh

9 tháng 3 2023

#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

nguyennhalam

24 tháng 12 2021

viết chương trình nhập số nguyên n từ bàn phím.

-in ra màn hình các số chia hết cho 3, mỗi số cách nhau một kí tự trống

-in ra màn hình số các số chia hết cho 3

1

NL

Nguyễn Lê Phước Thịnh

24 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long a[10000],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)

{

cout<<a[i]<<" ";

dem++;

}

cout<<endl;

cout<<dem;

return 0;

}

NH

Nguyễn Hồng Anh

27 tháng 3 2022

Lập trình nhập từ bàn phím một dãy số nguyên. Xếp các số chia hết cho 3 vừa lẻ lên đầu dãy, các số chia hết cho 3 vừa chẵn xuống cuối dãy, các số còn lại cho vào giữa dãy. Đưa kết quả ra màn hình.

1

C

chuche

27 tháng 3 2022

Tham Khảo:

uses crt;

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

i,n,j,tam:integer;

begin

clrscr;

write('Nhap n='); readln(n);for i:=1 to n do beginwrite('A[',i,']='); readln(a[i]);

end;

for i:=1 to n-1 do

for j:=i+1 to n do

if a[i]>a[j] then

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

for i:=1 to n do

write(a[i]:4);

readln;

end.

DM

đức minh

24 tháng 3 2021

Viết chương trình nhập vào một số nguyên dương n. Tính và in ra màn hình tổng các số từ 1 đến n thỏa mãn điều kiện không chia hết cho 3. *

1

UT

Uyên trần

24 tháng 3 2021

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.

NV

nguyễn vũ thành công

22 tháng 3 2021

Viết chương trình nhập vào một số nguyên dương n. Tính và in ra màn hình tổng các số từ 1 đến n thỏa mãn điều kiện không chia hết cho 3

5

NB

Nam Boss

22 tháng 3 2021

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

NB

Nam Boss

22 tháng 3 2021

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

GIÚP MK VS Ạ! MAI MK THI ÒI mk trân thành cảm ơn ạ!-Viết chương trình nhập vào N số nguyên từ bàn phím tính tích các số chia hết cho 3?-Viết chương trình nhập vào N số nguyên từ bàn phím đếm xem có bao nhiêu số chẵn trong các số vừa nhập?-Viết chương trình nhập vào N số nghuyên từ bàn phím hiển thị các số có giá trị nhỏ hơn hoặc bằng...

NT

Nhat thanh Tran

22 tháng 4 2023

1

PS

Phía sau một cô gái

22 tháng 4 2023

Câu 1: Viết chương trình nhập vào N số nguyên từ bàn phím tính tích các số chia hết cho 3?

program TichSoChiaHetCho3;

var

n, i, tich: integer;

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

begin

tich := 1;

write('Nhap so phan tu cua day: ');

readln(n);

for i := 1 to n do

begin

write('Nhap phan tu thu ', i, ': ');

readln(a[i]);

if a[i] mod 3 = 0 then

begin

tich := tich * a[i];

end;

writeln('Tich cac phan tu chia het cho 3 la: ', tich);

readln;

end.
Câu 2: Viết chương trình nhập vào N số nguyên từ bàn phím đếm xem có bao nhiêu số chẵn trong các số vừa nhập?

program DemSoChanTrongDay;

var

n, i, tich: integer;

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

begin

dem := 0;

write('Nhap so phan tu cua day: ');

readln(n);

for i := 1 to n do

begin

write('Nhap phan tu thu ', i, ': ');

readln(a[i]);

if a[i] mod 2 = 0 then

begin

dem := dem + 1;

end;

writeln('So phan tu chan trong day la: ', dem);

readln;

end.
Câu 3: Viết chương trình nhập vào N số nguyên từ bàn phím hiển thị các số có giá trị nhỏ hơn hoặc bằng 20?

program HienThiSoNhoHon20;

var

n, i: integer;

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

begin

write('Nhap so phan tu cua day: ');

readln(n);

for i := 1 to n do

begin

write('Nhap phan tu thu ', i, ': ');

readln(a[i]);

if a[i] <= 20 then

begin

writeln(a[i]);

end;

readln;

end.

QM

Quỳnh's Mun's

29 tháng 4 2021

a, Viết chương trình pascal nhập vào một dãy số nguyên n từ bàn phím b, in dãy vừa nhập ra màn hình. c, đếm xem bao nhiêu số dương. d, in kết quả số dương ra màn hình.

1

ML

Minh Lệ

29 tháng 4 2021

Program HOC24;

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

i,n,d: integer;

begin

write('Nhap N: ');

for i:=1 to n do

begin

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

end;

write('Day vua nhap la: ');

for i:=1 to n do write(a[i],' '); writeln;

d:=0;

for i:=1 to n do if a[i]>0 then d:=d+1;

write('Co ',d,' so duong');

readln

end.

NN

Nguyễn Như

23 tháng 3 2023

Viết chương trình python in ra màn hình các số lẻ chia hết cho 3 nhỏ hơn N, với N nhập từ bàn phím. Sau khi chạy chương trình thông báo đếm được bao nhiêu số ?

1

PS

Phía sau một cô gái

23 tháng 3 2023

program Tim_So_Le_Chia_Het_Cho_3;

uses crt;

var

n, i, count: integer;

begin

clrscr;

write('Nhap vao mot so nguyen duong n: ');

readln(n);

writeln('Cac so le chia het cho 3 nho hon ', n, ' la: ');

count := 0;

for i := 1 to n do

begin

if (i mod 2 = 1) and (i mod 3 = 0) then

begin

writeln(i);

count := count + 1;

end;

writeln('Co tat ca ', count, ' so le chia het cho 3');

readln;

end.