[Trang_anzu]

Chào mọi người!

Em là Trang

Mục đích em tạo bài này làĐể mọi người cùng giải đáp, học hỏi, rút kinh nghiệm về bộ môn pascal (vì có rất nhiều bài hiện tại trên google không có cách giải, hoặc không hiểu cho lắm.. v. V)

Cũng là một dân trong làng nên em vô cùng thấu hiểu nỗi đau này HuHu

Mọi người cứ việc hỏi bài ở giữa là được!

Dân tin toàn người lương thiện. Chắc chắn sẽ giúp thôi mà hehehe

Những câu hỏi hiện tại có

Xem nội dung ẩn

Bài 1: Kiểm tra số a có phải là số nguyên tố (trang 1)

Bài 2: Kiểm tra xem một số a có phải số nguyên tố bằng chương trình con (trang 1)

Chúc mọi người học tập tốt nha~

(sắp thì huyện vòng 1 rồi a)

 

[Trang_anzu]

Kiểm tra số a có phải là số nguyên tố hay không

giải

Program iloveyou;

Uses crt;

Var a, n, i: Integer;

Begin

Clrscr;

Writeln ('nhap n') ;readln (n) ;

For i: =1 to n-1 do begin

If n mod i <>0 then a: =1 else a: =0; (mọi người có thể dùng true/ false nha~đi thi thì nên dùng true / false hơn~)

End;

If a: =1 then writeln (n, ' la so nguyen to') else writeln (n, ' không la so nt) ; (nt: So nguyên tố nha~mình lườn viết vậy đóa)

Readln;

End.

 

[Trang_anzu]

Kiểm tra xem một số a có phải số nguyên tố bằng chương trình con

Giải

Program iuyou;

Uses crt;

Var a, n, i: Integer;

Function nt (a, n, i: Integer) : Integer;

For i: =1 to n-1 do begin

If n mod i <>0 then a: =1 else a: =0;

End;

If a: =1 then writeln (n, ' la so nguyen to') else writeln (n, ' không la so nt) ;

End;

Begin

Clrscr;

Writeln ('nhap n') ;

Readln (n) ;

Nt (a, n, i) ;

Readln;

End.

 

[Trang_anzu]

MN cho em hỏi bài này vs ạ:

Viết chương trình pascal kiểm tra xem số n có phải số đối xứng hay không?

Vd: 123321 là số đối xứng

12234 không la số đối xứng