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.
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?
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.
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.
mình chưa hiểu rõ đề lắm nên mình sẽ làm tạm như thế này còn nếu bạn muốn kiểu khác thì cứ bình luận để mình làm lại.
câu 1 :
#include<iostream>
using namespace std;
int main() {
long long a;
cout << "giá trị của a: "; cin >> a;
if (a % 2 != 0 && a % 5 == 0) {
cout << "a là một số lẻ chia hết cho 5"
} else {
cout << "a không phải là một số lẻ chia hết cho 5";
}
return 0;
}
câu 2 :
#include<iostream>
using namespace std;
int main() {
int a;
cout << "giá trị của a là: "; cin >> a;
if (a % 2 == 0 && a % 5 == 0) {
cout << "a là một số chẵn chia hết cho 5";
} else {
cout << "a không phải là một số chẵn chia hết cho 5";
}
return 0;
}
(Mình viết ở ngôn ngữ C++)
program tinhTong;
var
n,i,s: integer;
a: array[1..100] of integer;
begin
write('Nhap so luong phan tu: ');
readln(n);
for i := 1 to n do
begin
write('a[',i,'] = ');
readln(a[i]);
end;
s := 0;
for i := 1 to n do
begin
if (a[i] mod 5 <> 0) then
s := s + a[i];
end;
writeln('Tong cac so khong chia het cho 5: ', s);
readln;
end.
program TinhTong;
var
n, i, s, x: integer;
begin
write('Nhap so luong phan tu cua day: ');
readln(n);
s := 0;
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(x);
if (x mod 5 <> 0) then
s := s + x;
end;
writeln('Tong cac so khong chia het cho 5 la: ', s);
end.