Viết chương trình số a chia hết cho 5
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.
![](https://rs.olm.vn/images/avt/0.png?1311)
![](https://rs.olm.vn/images/avt/0.png?1311)
1:
#include <bits/stdc++.h>
using namespace std;
long long x;
int main()
{
cin>>x;
if (x%5==0) cout<<"Yes";
else cout<<"No";
return 0;
}
2:
#include <bits/stdc++.h>
using namespace std;
long long x;
int main()
{
cin>>x;
if (x%15==0) cout<<"Yes";
else cout<<"No";
return 0;
}
Viết chương trình nhập vào số nguyên dương a. Hãy cho biết số vừa nhập có chia hết cho 3 và 5 không?
![](https://rs.olm.vn/images/avt/0.png?1311)
uses crt;
var a:integer;
begin
clrscr;
repeat
write('Nhap a='); readln(a);
until a>0;
if (a mod 3=0) and (a mod 5=0) then writeln(a,' chia het cho 3 va 5')
else writeln(a,' khong chia het cho 3 va 5');
readln;
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
#include <bits/stdc++.h>
using namespace std;
long long i,n,a[1000],dem,t;
int main()
{
cin>>n;
for (i=1; i<=n; i++)
cin>>a[i];
t=0;
for (i=1; i<=n; i++)
if (a[i]%15==0)
{
cout<<a[i]<<" ";
t+=a[i];
}
cout<<endl;
cout<<"Tong cac so chia het cho 3 va 5 la: "<<t;
return 0;
}
![](https://rs.olm.vn/images/avt/0.png?1311)
Program HOC24;
var i,n: integer;
a: array[1..10000] of integer;
t: longint;
begin
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 3=0) and (a[i] mod 5=0) then t:=t+a[i];
write('Tong la: ',t);
readln
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
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.
![](https://rs.olm.vn/images/avt/0.png?1311)
Program Tin;
Uses crt;
Var i,n:integer;
A:array[1..1000] of integer;
Begin
Clrscr;
Write('Nhap n: ');readln(n);
Writeln('Nhap ',n,' phan tu: ');
For i:= 1 to n do
Begin
Write('A[',i,'] = ');
Readln(A[i]);
End;
Writeln('Cac phan tu chia het cho 5:');
For i:=1 to n do If A[i] mod 5 = 0 then write(A[i],' ');
readln;
end.
uses crt;
var a:array[1..100]of integer;
i,n: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
if a[i] mod 5=0 then write(a[i]:4);
readln;
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
#include <bits/stdc++.h>
using namespace std;
long long x,i,n,dem;
int main()
{
cin>>n;
dem=0;
for (i=1; i<=n; i++)
{
cin>>x;
if ((x%2==0) or (x%5==0)) dem++;
}
cout<<dem;
return 0;
}