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.
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++)
uses crt;
var a:integer;
begin
clrscr;
write('Nhap a='); readln(a);
if (a mod 3=0) and (a mod 5=0) then writeln(a,' dong thoi chia het cho 3 va 5')
else writeln('Khong thoa dieu kien');
readln;
end.
uses crt;
var a:integer;
begin
clrscr;
readln(a);
if (a mod 3=0) or (a mod 5=0) then write('co')
else writeln('khong');
readln;
end.
Uses CRT;
Var n: word;
Begin
Clrscr;
write('Nhap n: '); readln(n);
if (n mod 2 = 0) and (n mod 3 = 0) then write('So do chia het cho 2 va 3')
else if (n mod 2 <>0) and (n mod 3 <> 0) then write('So do khong chia het cho 2 va 3')
else if (n mod 2 = 0) and (n mod 3 <> 0) then write('So do chia het cho 2 nhung khong chia het cho 3')
else write('So do chia het cho 3 nhung khong chia het cho 2');
readln
end.
C++:
#include<iostream>
using namespace std;
int main() {
int n;
cin >> n;
//a)
if (n % 5 == 0) {
return true;
} else {
return false;
}
//b)
if (n > 0) {
return true;
} else {
return false;
}
return 0;
}
câu 1 Uses Crt;
Var St:String;
dem: Array[‘A’..’Z’] Of Byte
; i:Byte;
ch:Char;
Begin Write(‘Nhap xau St: ‘);
Readln(St);
{Khởi tạo mảng} For ch:=’A’ To ‘Z’ Do dem[ch]:=0;
{Duyệt xâu} For i:=1 To Length(St) Do If Upcase(St[i]) IN [‘A’..’Z’] Then Inc(dem[Upcase(St[i])]);
{Liệt kê các ký tự ra màn hình} For ch:=’A’ To ‘Z’ Do If dem[ch]>0 Then Writeln(ch,’ : ’,dem[ch]);
Readln;
uses crt;
var a:integer;
begin
clrscr;
write('Nhap a='); readln(a);
if a mod 3=0 then writeln(a,' chia het cho 3')
else writeln(a,' khong chia het cho 3');
readln;
end.
s ko có program