Ai Biết Làm Bài Tập Pascal ko Hộ Em Với!

[duylp8686]

Làm Giúp Em mấy bài:​

Bài 2:
+ Nhập một dãy gồm n số nguyên từ bàn phím (n>1), sau đó in dãy đã nhập ra màn hình.
+ In tất cả các số nguyên tố trong dãy đã nhập.
+ In tổng của tất cả các số nguyên tố ra màn hình.
+ Kiểm tra xem có bao nhiêu chia hết cho 3?
=================================
Mấy Bài Kia Mình Làm Hết rồi nhưng còn bài nay khó qua mình không làm được ý " In các Số Nguyên Tố Trong Dãy"

[dungtsbd]

17 bài này mình thấy đều là dạng cơ bản khi mới vào học và chưa có bài nào cần thuật toán phức tạp. Bạn chỉ cần nắm vững lí thuyết là làm được thôi mà. Cố lên nhá vì nói thật dạo này mất điện 10h 1 ngày mình cũng chẳng có thời gian vào diễn đàn nói chi làm bài hộ. [IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG]

[tenten]

Mình nghĩ bạn nên phân loại vào các dạng, rồi chọn ra từ mỗi dạng 1 bài tập để mọi người trợ giúp. Sau đó từ bài đó sẽ rút ra cách cho các bài khác. Chứ nói thật nhìn 17 bài thế này mình cũng "choáng".
Với lại dạo này chỗ mình mất điện cũng vãi lệ quá =)) Ko đủ time =))

[sudo]

Bạn cảm thấy khó khăn ở phần nào thì hỏi chứ hỏi kiểu này thì tốn tg lắm

[conggameviet]

Mình có cảm giác bạn chủ topic post bài lên để lấy code chứ không lấy cách làm. Nếu là như vậy thì có code lần này nhưng bạn chỉ tốn thời gian chứ chẳng được gì trong đầu cả đâu. Tốt nhất bạn hãy làm thử, nếu vướng mắc ở đâu hãy hỏi mọi người. Diễn đàn lập ra để thảo luận chứ không mong muốn lập ra để thành 1 thư viện bài tập. Chúc bạn học tốt.

[binhgia69]

Không Phải Mình sợ Không Kịp Làm Bài nhiều quá. Còn 1 Bài Giúp Mình Y tìm Nguyên tố

[tddhcm148]

Bài này cũng đơn giản thôi, bạn chỉ cần xây dựng đươcj chương trình con kiểm tra tính nguyên tố của 1 số nguyên dương bạn ah!

[danseoit]

Var A: array[1..100] of integer;
N,i,d,S:integer;
Function SNT(x:integer):boolean;
Var i:integer;
Begin
SNT:=x>1;
For i:=2 to trunc(sqrt(x)) do
 if x mod i=0 then
 Begin
 SNT:=False;
 break;
 End;
End;
BEGIN
  write('Nhap vao so phan tu cua day:'); Readln(N);
 For i:=1 to N do
  Begin
   write('Phan tu thu:',i,':');
    Readln(A[i]);
  End;
{Viet ra man hinh cac so nguyen to}
   write('Cac so nguyen to trong day la:');
   For i:=1 to N do
     if SNT(A[i])=True then write(A[i]:3);
   writeln;
 {Tinh tong cac so nguyen to trong day}
  S:=0;
   For i:=1 to N do
     if SNT(A[i]) then S:=S+A[i];
     writeln('Tong cac so nguyen to la:',S);
   {Dem xem cos bao nhieu so chia het cho 3}
   For i:=1 to N do
     if A[i] mod 3=0 then d:=d+1;
      writeln('So phan tu chia het cho 3 la:',d);
Readln
End.