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.

uses crt;

var n:longint;

begin

 clrscr;

write('Nhap nam: ');    readln(n);

if n mod 4=0 then write('Day la nam nhuan')

   else write('Day khong phai nam nhuan');

readln

end.

#include <bits/stdc++.h>

using namespace std;

long long n;

int main()

{

cin>>n;

if (n%4==0 && n%100!=0) cout<<"La nam nhuan";

else if (n%400==0) cout<<"La nam nhuan";

else cout<<"Khong la nam nhuan";

return 0;

}

#include <iostream>
using namespace std;
int main()
{
    int a,b,c,kt;
    cout<<"Nhap a=";
    cin>>a;
    cout<<"Nhap b=";
    cin>>b;
    cout<<"Nhap c=";
    cin>>c;
    if ((a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a))
    {
        kt=0;
        if (a*a==b*b+c*c) kt=1;
        if (b*b==a*a+c*c) kt=1;
        if (c*c==a*a+b*b) kt=1;
        if ((a==b) and ((a<c) or (a>c)) and ((b<c) or (b>c))) kt=2;
        if ((b==c) and ((b<a) or (b>a)) and ((c<a) or (c>a))) kt=2;
        if ((c==a) and ((c<b) or (c>b)) and ((a<b) or (a>b))) kt=2;
        if ((a==c) and (b==c)) kt=3;
        if (kt==2) cout<<"Day la tam giac can";

else cout<<"Day khong la tam giac can";
    }
    else cout<<"Day khong la ba canh trong mot tam giac";
    return 0;
}

uses crt;

var a,b,c:real;

kt:integer;

begin

clrscr;

repeat

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

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

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

until (a>0) and (b>0) and (c>0);

if (a+b>c) and (a+c>b) and (b+c>a) then 

begin

kt:=0;

if (a=b) and (a<>c) and (b<>c) then kt:=1;

if (b=c) and (b<>a) and (c<>a) then kt:=1;

if (c=a) and (c<>b) and (a<>b) then kt:=1;

if kt=0 then writeln('Day khong la tam giac can')

else writeln('Day la tam giac can');

end

else writeln('Day khong la ba canh trong mot tam giac');

readln;

end.

def kiem_tra_so_ngay(thang):
    if thang in [1, 3, 5, 7, 8, 10, 12]:
        return 31
    elif thang in [4, 6, 9, 11]:
        return 30
    elif thang == 2:
        return "28 hoặc 29"
    else:
        return "Tháng không hợp lệ"

# Nhập tháng từ người dùng
thang = int(input("Nhập vào một số nguyên là tháng trong năm: "))

# Kiểm tra và xuất ra số ngày tương ứng
so_ngay = kiem_tra_so_ngay(thang)
print(f"Số ngày trong tháng {thang} là: {so_ngay} ngày.")

program tamgiac;

uses crt;

var a,b,c:integer;

begin

clrscr;

writeln('nhap ba canh cua tam giac'); readln(a,b,c);

if a+b>c and a+c>b and b+c>a then write(a,' ',b,' ',c 'la ba canh cua tam giac') else write(a,' ',b,' ',c 'khong la ba canh cua tam giac');

readln

end.

uses crt;

var a,b,c:integer;

begin

clrscr;

readln(a,b,c);

if (a=b) and (b=c) then write('YES')

else write('NO');

readln;

end.