#include <bits/stdc++.h>
using namespace std;
long long n;
//chuongtrinhcon
bool ktnt(long long n)
{
    if (n<2) return(false);
    else
    for (int i=2; i*i<=n;i++)
        if (n%i==0) return (false);
    return(true);

}
//chuongtrinhchinh
int main()
{
    //freopen("KTSNT.INP","r",stdin);
    //freopen("KTSNT.OUT","w",stdout);
    cin>>n;
    if (ktnt(n)==true) cout<<"1";
    else cout<<"0";
    return 0;
}

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

Bài 1:

#include <bits/stdc++.h>

using namespace std;

long long n,i;

bool kt;

int main()

{

cin>>n;

if (n>1) 

{

kt=true;

for (i=2; i*i<=n; i++) 

if (n%i==0) kt=false;

if (kt==true) cout<<n<<" la so nguyen to";

else cout<<n<<" khong la so nguyen to";

}

else cout<<n<<" khong la so nguyen to";

return 0;

}

#include <bits/stdc++.h>

using namespace std;

int n;

int main()

{

cin>>n;

if (n%5==0) cout<<"co";

else cout<<"ko co";

}

#include <bits/stdc++.h>

using namespace std;

long long n;

int main()

{

cin>>n;

bool kt=true;

for (int i=2; i*i<=n; i++)

if (n%i==0) kt=false;

if (kt==true && n>=2) cout<<"YES";

else cout<<"NO";

return 0;

}

program kiem_tra_so_nguyen_to;

var
  N, i: Integer;
  laSoNguyenTo: Boolean;

begin
  Write('Nhap vao mot so nguyen duong N: ');
  Readln(N);

  laSoNguyenTo := True;
  
  if (N < 2) then
    laSoNguyenTo := False
  else
  begin
    for i := 2 to N - 1 do
    begin
      if (N mod i = 0) then
      begin
        laSoNguyenTo := False;
        Break;
      end;
    end;
  end;

  if (laSoNguyenTo) then
    Writeln(N, ' la so nguyen to')
  else
    Writeln(N, ' khong la so nguyen to');
    
  Readln;
end.

Input: số nguyên N

Output: N là chẵn hoặc N là lẻ

- Thuật toán liệt kê:

+ Bước 1: Nhập N

+ Bước 2: Nếu N chia hết cho 2 thì in ra N chẵn và kết thúc thuật toán ngược lại nếu N không chia hết cho 2 thì in ra N lẻ và kết thúc thuật toán

- Thuật toán sơ đồ khối:

Câu 1: 

*Mô tả thuật toán:

Bước 1: Nhập n

Bước 2: kt←0; i←2;

Bước 3: Nếu n chia hết cho i thì kt←1;

Bước 4: i←i+1;

Bước 5: Nếu i<=n thì quay lại bước 3

Bước 6: Nếu kt=0 thì n là số nguyên tố

không thì không phải

Bước 7: Kết thúc

*Mô tả thuật toán:

Bước 1: Nhập n

Bước 2: kt←0; i←2;

Bước 3: Nếu n chia hết cho i thì kt←1;

Bước 4: i←i+1;

Bước 5: Nếu i<=n thì quay lại bước 3

Bước 6: Nếu kt=0 thì n là số nguyên tố

không thì không phải

Bước 7: Kết thúc

Câu 1: 

uses crt;

var kt,n,i:integer;

begin

clrscr;

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

kt:=0;

for i:=2 to n-1 do 

  if n mod i=0 then kt:=1;

if (kt=0) and (n>1) then writeln(n,' la so nguyen to')

else writeln(n,' khong la so nguyen to');

readln;

end.

Var n,i,souoc:integer;

Begin

Write('Nhap N = ');readln(n);

souoc:=0;

For i:=1 to n do

If n mod i = 0 then souoc:=souoc+1;

If souoc=2 then write(n,' la so nguyen to')

Else write(n,' khong la so nguyen to');

Readln;

End.

program KiemTraSoNguyenTo;
var
  N, i: integer;
  IsPrime: boolean;
begin
  write('Nhap N: ');
  readln(N);

  IsPrime := true;
  if (N < 2) then
    IsPrime := false
  else
    for i := 2 to trunc(sqrt(N)) do
      if (N mod i = 0) then
      begin
        IsPrime := false;
        break;
      end;

  if IsPrime then
    writeln(N, ' la so nguyen to')
  else
    writeln(N, ' khong la so nguyen to');

  readln;
end.