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
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
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
Được sửa bởi real_time lúc 16:05 ngày 06-12-2007
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.
À, 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.
sao mà bài nài cũng không làm được.làm theo bạn tranvannho đúng đấy.
không hiểu
cho mình trương trình cụ thể với
làm ơn đi
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.
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?
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
Code: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.
Bookmarks