Bài tập Pascal: nhập n, tính tổng các số nguyên tố từ 1 đến n

[Hong_Linh]

Chủ thớt nói ngắn gọn xúc tích quá nên TOP Google luôn [IMG]images/smilies/troll.jpg[/IMG]

https://www.google.com/search?q=nh%E1%BA%ADp+n+t%C3%ADnh+t%E1%BB%95ng+c%C3%A1c+s%E1%BB%91+nguy%C3%AAn+t%E1%BB%91+t%E1%BB%AB+1+%C4%91%E1%BA%BFn+n&oq=nh%E1%BA%ADp+n+t%C3%ADnh+t%E1%BB%95ng+c%C3%A1c+s%E1%BB%91+nguy%C3%AAn+t%E1%BB%91+t%E1%BB%AB+1+%C4%91%E1%BA%BFn+n&aqs=chrome..69i57.1285j0j9&sourceid=chrome&es_sm=122&ie=UTF-8

View more random threads:

• Topic thảo luận, giải đáp thắc mắc về windows 10
• Xem video chỉ có tiếng không có hình cả trên web và các ứng dụng windows media player,K-Lite_Codec
• Fix lỗi '' không đăng kí vào mạng '' samsung HÀ NỘI
• Giúp cách xóa phần mềm độc hại Google chrome
• Gỡ bỏ quảng cáo mystartsearch.com trên trình duyệt Chrome
• Cả nhà giúp e với ạh. máy e liên tục hiện Internet dowload manage là sao ạ ????
• Hỏi các sử dụng BIOS Asus
• Quá mệt mỏi vẫn không tìm được trình tự cài windows chuẩn
• Tư vấn mua laptop 6 triệu
• Ai giúp mình với!

[benjamin239]

nhập n, tính tổng các số nguyên tố từ 1 đến n

[killgame1]

program test;
uses crt;
var n,i,s:integer;
function check(x:integer):boolean;
var ii:integer;
begin
check:=true;
if x<=1 then check:=false
else
begin
for ii:=2 to trunc(sqrt(x)) do
if x mod ii=0 then
begin
check:=false;
break;
end;
end;
end;
begin
clrscr;
write('Nhap N: ');readln(n);
s:=0;
for i:=2 to n do
if check(i)=true then s:=s+i;
write(s);
readln;
end.

p/s: lần sau có hỏi thì bạn nên hỏi có đầu có đuôi nhé, đừng nói kiểu trọc lóc như thế

[Binhboong92]

Bởi riết rồi cái phong cách nói chuyện cũng chả ra hồn gị. Những người như gị mình chả bao giờ hỗ trợ. Hỏi mà cứ như ông nội người ta vậy.

[kaka1q2]

Úp cho một bài viết hay của bạn lên top. Cảm ơn bạn nhiều nhé

[quynhseoenuy]

p/s: lần sau có hỏi thì bạn nên hỏi có đầu có đuôi nhé, đừng nói kiểu trọc lóc như thế

Cái này là tổng số nguyên rồi em, đề bài là tổng số nguyên tố, cần tạo hàm check số nguyên tố nữa.
Chủ thớt nên tự làm rồi sai cái gì mọi người giúp

[duhocvic]

https://drive.google.com/file/d/0B6y...ew?usp=sharing
https://drive.google.com/file/d/0B6y...ew?usp=sharing

Chuẩn đó, em lớp mấy rồi lập trình hay thế [IMG]images/smilies/troll/facebook3.png[/IMG]

[anhdjen]

Chuẩn đó, em lớp mấy rồi lập trình hay thế [IMG]images/smilies/troll/facebook3.png[/IMG]

kết bác [IMG]images/icons/1.gif[/IMG], lớp 7 học rồi ạ, chuyên pascal thôi chứ C hay C++ hay python chả biết gì cả [IMG]images/smilies/troll2/troll2.jpg[/IMG]

[Step]

Cái này là tổng số nguyên rồi em, đề bài là tổng số nguyên tố, cần tạo hàm check số nguyên tố nữa.
Chủ thớt nên tự làm rồi sai cái gì mọi người giúp

lạ vậy, chủ thớt có sửa lại ko chứ lúc nãy là số nguyên mà, thôi để em sửa lại

[crawlers1214]

https://drive.google.com/file/d/0B6y...ew?usp=sharing
https://drive.google.com/file/d/0B6y...ew?usp=sharing