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ó Bấm để xem 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)
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.
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.
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
