uses crt;
var n: longint;
begin
clrscr;
    readln(n);
    
    if n >= 3 then
        if n * n = (n - 1) * (n - 1) + (n - 2) * (n - 2) then
            writeln(n, ' la so Pytago')
        else
            writeln(n, ' khong phai la so Pytago')
            
    else writeln(n, ' khong phai la so Pytago');
readln;
end.

Để kiểm tra số n có phải số py-ta-go không thì ta sử dụng câu lệnh điều kiện if..else.

CÚ PHÁP:

if <điều kiện> then <câu lệnh1> else <câu lệnh2>;

CÁCH HOẠT ĐỘNG:

Nếu điều kiện đúng thì thực hiện câu lệnh 1 còn nếu điều kiện sai (ngược lại) thì thực hiện câu lệnh 2.

Ý TƯỞNG LÀM BÀI:

`1. ` Kiểm tra xem n có `>=3` không, nếu có thì chuyển tới B2, ngược lại thi yêu cầu nhập lại. (bước này dùng câu lệnh while..do, nếu không hiểu thì hỏi lại mình sau nhé!)

`2. `Bạn sẽ kiểm tra xem số `n^2` có bằng `(n-1)^2+(n-2)^2` không, nếu đúng thì in ra "n la so py-ta-go", ngược lại in ra "n khong la so py-ta-go"

uses crt;
var n: integer;
begin
clrscr;
    write('Nhap vao 1 so: ');
    readln(n);
    while n<3 do begin
        writeln('So ',n,' <3, ban hay nhap lai!');
        write('Nhap vao 1 so: ');
        readln(n);
    end;
    if n*n = (n-1)*(n-1)+(n-2)*(n-2) then write(n,' la so py-ta-go') else write(n,' khong la so py-ta-go');
    readln
end.