var a:longint;

begin

write('Nhap a = ');readln(a);

if a mod 2 = 0 then writeln(a,' la so chan')

else writeln(a,' la so le');

if a > 0 then write(a,' la so duong');

if a < 0 then write(a,' la so am');

if a = 0 then write(a,' khong am cung khong duong');

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++)

TK:

uses crt;
var n: longint;
begin
clrscr;
    readln(n);
    if n mod 2 = 0 then writeln('Chan') else writeln('Le');
readln;
end.

#include<bits/stdc++.h>

using namespace std;

long long N;

int main()

{
cin>>N;

if(N%2==0) cout<<N<<" là số chẵn";

if(N%2!=0) cout<<N<<" là số lẻ";

}

#include <bits/stdc++.h>

using namespace std;

int main()

{

long long n;

cin>>n;

if (n%2==0) cout<<n<<" la so chan"<<endl;

else cout<<n<<" la so le"<<endl;

if (n<0) cout<<n<<" la so am";

else cout<<n<<" la so khong am";

return 0;

}

#include <bits/stdc++.h>

using namespace std;

long long n;

int main()

{

cin>>n;

if (n%2==0) cout<<"Chan";

else cout<<"Le";

return 0;

}

program So_chan_hay_le;

uses crt;

var m : integer;

begin

clrscr;

writeln('Nhap so m'); readln(m);

if m mod 2 = 0 then

writeln('Day la so chan')

else writeln('Day la so le');

readln;

end.

Giúp mik v