Thuật toán:

B1: Nhập số nguyên n

B2: Nếu n >0 thì in ra màn hình n là số dương; nếu n <0 thì in ra màn hình n là số âm; nếu n = 0 thì in ra màn hình n không dương cũng không âm.

B3. Kết thúc

Chương trình:

uses crt;

var n: integer;

begin

write('Nhap so N: '); readln(n);

if n > 0 then writeln(n,' la so nguyen duong') else if n = 0 then writeln(n,' khong la so am cung khong la so duong') else writeln(n, ' la so nguyen am');

end.

Thuật toán: 

-Bước 1: Nhập n

-Bước 2: Nếu \(\sqrt{n}=trunc\left(\sqrt{n}\right)\) thì n là số chính phương

không thì n không phải là số chính phương

-Bước 3: Kết thúc.

Viết chương trình

uses crt;

var n:integer;

begin

clrscr;

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

if n<0 then writeln(n,' khong la so chinh phuong')

else begin

             if sqrt(n)=trunc(sqrt(n)) then writeln(n,' la so chinh phuong')

             else writeln(n,' khong la so chinh phuong');

       end;

readln;

end.

giúp mik với
 

#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;
}

#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;

}

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.

uses crt;

var a:integer;

begin

clrscr;

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

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

else if a<0 then writeln(a,' la so am')

else writeln(a,' khong la so am cung khong la so duong');

readln;

end.

program soamsoduong;

uses crt;

var

a:integer;

begin

clrscr;

write('nhap vao a:');readln(a);

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

else write ('so duong la ', a)

readln; 

end.

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

writeln(a*b);

if (a>0) then writeln('a la so nguyen duong')

else writeln('a la so nguyen am');

readln;

end.

Câu 2:

#include <bits/stdc++.h>

using namespace std;

long long n;

int main()

{

cin>>n;

if (n>0 && n%5==0) cout<<"Phai";

else cout<<"Khong phai";

}