Giúp với!

[NguyenChiCuong]

Ai giúp mình giải bài này với, mình mới học pascal:
Bai toan: Tính trung bình cộng các số nguyên tố từ 1->N.Với N nhập từ bàn phím.
Ai có lòng tốt mình xin cảm ơn

[tranvanho]

ui trời
bài này dễ òm mà
chỉ dùng vòng for i:=1 to n do
tong:=tong+i;
rùi lấy tổng chia cho n là dc

[ktvnguyenchien]

Bài nãy cũng vác lên hỏi???
Bạn học gì vậy???

Warning: Lần sau nhớ post tiêu đề đầy đủ nha.

[NguyenChiCuong]

À, bởi vì mình mới học Pascal nên chưa hiểu rõ.Mà bạn tranvanho nói gì kì vậy, cái này là số nguyên tố mà,ít ra cũng phải có cái gì kiểm tra nó có phải là số nguyên tố trước chứ.
Làm ơn cho mình chương trình cụ thể với.

[quang thìn]

sao mà bài nài cũng không làm được.làm theo bạn tranvannho đúng đấy.

[NguyenChiCuong]

không hiểu
cho mình trương trình cụ thể với
làm ơn đi

[real_time]

Cố gắng suy nghĩ trước khi xin chương trình cụ thể đi bạn. Bạn có thể tìm thấy đoạn chương trình liệt kê các số nguyên tố từ 1 đến n trong box này sau đó thêm một đoạn tính trung bình cộng nữa là xong.

[NguyenChiCuong]

Liệt kê các con số thì mình làm được rùi, nhưng khi gán biến đếm thì nó không tăng lên. Mình không hiểu tại sao?

[doremon_No1]

bạn post ct lên để mọi người xem rồi chỉ ra lỗi chứ. Nói vậy sao biết chỗ nào sai được

[langtusitinh225]

program TBC;
ues crt;
var n:integer
{----------}
procedure nhap;
begin
   clrscr;
   write('N =');
   readln(n);
end;
{---------}
function ktnt(n:integer):boolean;
var i:integer;
begin
   ktnt:=false;
   for i:=2 to trunc(sqrt(n)) do
      if n mod i=0 then exit;
   ktnt:=true;
end;
{---------}
procedure xl;
var tong,i:integer;
begin
   tong:=0;
   for i:=2 to n do
      if ktnt(i) then tong:=tong+i;
   write(tong);
end;
{---------}
begin
   nhap;
   xl;
   readln;
end.