Viết chương trình nhập vào 1 dãy số nguyên không quá 100 kí tự đếm và in ra màn hình các số chia hết cho 3
Em cám ơn ạ
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.
Những câu hỏi liên quan
NB
16 tháng 4 2023
program TongSoChiaHetCho5;
var
n, i, x, tong: integer;
begin
write('Nhap so phan tu n: ');
readln(n);
tong := 0;
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(x);
if (x > 0) and (x mod 5 = 0) then
tong := tong + x;
end;
writeln('Tong cac so lon hon 0 va chia het cho 5 la: ', tong);
readln;
end.
22 tháng 2 2022
Câu 1:
#include <bits/stdc++.h>
using namespace std;
long long i,n,k,dem,x;
int main()
{
cin>>n;
cin>>k;
dem=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x==k) dem++;
}
cout<<dem;
return 0;
}
4 tháng 3 2021
uses crt;
var a:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if a[i] mod 3=0 then inc(dem);
writeln(dem);
readln;
end.
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;
}
21 tháng 4 2021
uses crt;
var a:array[1..100]of integer;
i:integer;
begin
clrscr;
for i:=1 to 100 do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to 100 do
write(a[i]:2);
readln;
end.
21 tháng 1 2022
#include <bits/stdc++.h>
using namespace std;
long long dem,x,n,i,t;
int main()
{
cin>>n;
t=0;
dem=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%2==0)
{
dem++;
t+=x;
}
}
cout<<dem<<" "<<t;
return 0;
}
Program HOC24;
var a: array[1..100] of integer;
d,i,n: integer;
begin
write('Nhap so phan tu cua day : '); readln(n);
d:=0;
for i:=1 to n do
begin
write('Nhap so thu ',i,':'); readln(a[i]);
if a[i] mod 3=0 then d:=d+1;
end;
writeln('Co ',d,' so chia het cho 3');
write('Cac so chia het cho 3 la : ');
for i:=1 to n do write(a[i],' ');
readln
end.