chào tất cả anh chỉ rút em gải bài nài với ạ: viết chương trình đến các số chia hết cho 2 hoặc chia hết cho 5 trong dãy a gồm n số nguyên dương (n nhỏ hơn hoặc bằng 100)
Cho dãy A gồm N số nguyên (N nhỏ hơn hoặc bằng 200) số nguyên A1,A2,...An. Hãy viết chương trình nhập mảng A vào từ bàn phím và đưa ra màn hình tổng các phần tử chia hết cho 5. Bài 2: Viết chương trình nhập 1 xâu vào từ bàn phím và đưa ra màn hình xâu không chứa dấu cách.
Bài 1:
uses crt;
var a:array[1..200]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;
t:=0;
for i:=1 to n do
if a[i] mod 5=0 then t:=t+a[i];
writeln('Tong cac so chia het cho 5 la: ',t);
readln;
end.
Bài 2:
uses crt;
var st:string;
d,i:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
for i:=1 to d do
if st[i]=#32 then delete(st,i,1);
writeln(st);
readln;
end.
Bài 1: Viết chương trình nhập số nguyên dương n. Tính tổng các số chẫn chia hết cho 3 nhỏ hơn hoặc bằng n
Bài 2: Viết chương trình nhập vào 3 số nguyên dương a, b, c. Tìm ước chung lớn nhất của 3 số
Bài 1:
uses crt;
var n,i,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
if i mod 6=0 then s:=s+i;
writeln(s);
readln;
end.
Bài 2:
uses crt;
var a,b,c,ucln,i:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
while a<>b do
begin
if a>b then a:=a-b
else b:=b-a;
end;
ucln:=a;
while ucln<>c do
begin
if ucln>c then ucln:=ucln-c
else c:=c-ucln;
end;
writeln(ucln);
readln;
end.
Scratch hay java
Viết chương trình nhập 1 dãy số gồm N số nguyên N≤100 in dãy vừa nhập.Tính và đưa ra màn hình tổng các số chia hết cho 2 nhưng không chia hết cho 3 trong dãy trên.Ghi kết quả vừa tính được vào tệp Bài tập.Out
Giúp mình với ạ
viết chương trình nhập vào dãy M gồm N (N <= 100) số nguyên. Đếm và tính tổng các số chia hết cho 3 trong dãy
Giúp mình với ạ
#include <bits/stdc++.h>
using namespace std;
long long n,i,x,dem,t;
int main()
{
cin>>n;
dem=0;
t=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%3==0)
{
dem++;
t+=x;
}
}
cout<<dem<<" "<<t;
return 0;
}
uses crt;
var a:array[1..100]of integer;
i,n,dem,s,s1,vt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
s:=1;
for i:=1 to n do
if a[i]=3 then
begin
inc(dem);
s:=s*a[i];
end;
writeln('So phan tu bang 3 la: ',dem);
writeln('Tich cua chung la: ',s);
for i:=n downto 1 do
if a[i]<0 then
begin
vt:=i;
break;
end;
if vt=0 then writeln('Trong day khong co so am')
else writeln('So am cuoi cung la: ',a[vt]);
s1:=1;
for i:=1 to n do
if (a[i] mod 3=0) or (a[i] mod 4=0) then s1:=s1*a[i];
writeln('Tich cac phan tu chia het cho 3 hoac 4 la: ',s1);
writeln('Cac so nguyen la: ');
for i:=1 to n do
write(a[i]:4);
readln;
end.
Bài 1: Viết chương trình nhập số nguyên dương N a) Tính tổng các phần tử là các số chia hết cho 3 và nhỏ hơn N b) Tính trung bình cộng các phần tử là các số chia hết cho 3 và nhỏ hơn N
#include <bits/stdc++.h>
using namespace std;
long long n,i,t,dem;
int main()
{
cin>>n;
t=0;
dem=0;
for (i=1; i<=n; i++)
if (i%3==0)
{
t=t+i;
dem++;
}
cout<<t<<endl;
cout<<fixed<<setprecision(2)<<(t*1.0)/(dem*1.0);
return 0;
}
cho số nguyên dương N (10<=N<=10^6). hãy đếm số lượng các số nguyên dương a nhỏ hơn N (10<=a<=N) thỏa mãn điều kiện: a có ít nhất 2 chữ số, đồng thời a có tất cả các chữ số giống nhau và chia hết cho 9.
viết chương trình đếm các số a thỏa mãn
Cho dãy gồm n số nguyên dương a1,a2...an. Đếm các số tròn chục Đến các số chia hết cho 2 hoặc 3
#include <bits/stdc++.h>
using namespace std;
long long n,i,x,dem1,dem2;
int main()
{
cin>>n;
dem1=0;
dem2=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%10==0) dem1++;
if ((x%2==0) or (x%3==0)) dem2++;
}
cout<<dem1<<" "<<dem2;
return 0;
}
viết chương trình tạo dãy A gồm N số nguyên (N≤25) và 1 số nguyên k.
A) cho biết trong dãy A có bao nhiêu số có giá trị bằng k
B) cho biết trong dãy â có bao nhiêu số chia hết cho k
C) Tính tổng các số chia hết cho k trong dãy A