Nội dung chính
- 1 Xem Tính tổng các số nguyên to từ 1 đến n Pascal 2024
- 2 Bài tập Pascal: nhập n, tính tổng các số nguyên tố từ 1 đến n
Xem Tính tổng các số nguyên to từ 1 đến n Pascal 2024
Bài tập Pascal: nhập n, tính tổng các số nguyên tố từ 1 đến n
nhập n, tính tổng các số nguyên tố từ 1 đến n P
phamthanhnhan
(｡｡) づ Reply: pascal
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
;
s:=0;
for i:=2 to n do
if check(i)=true then s:=s+i;
write(s);
readln;
end. Nhấn để mở rộng…
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ế Sửa lần cuối: 10/4/16 V
vietvinh212
Reply: pascal
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. A
anphuong1679 Úp cho một bài viết hay của bạn lên top. Cảm ơn bạn nhiều nhé
VSupport
Ngây thơ trong tối Reply: pascal
phamthanhnhan: 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ế Nhấn để mở rộng… 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 E
eldorado
Hiền nhất diễn đàn Chủ thớt nói ngắn gọn xúc tích quá nên TOP Google luôn
Mã:
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-8P
phamthanhnhan
(｡｡) づ Reply: pascal
VSupport: 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 Nhấn để mở rộng…
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 P
phamthanhnhan
(｡｡) づ Reply: pascal
drive.google.com/file/d/0B6ybXnPIa9UQQVNEWUUwUjBDcEE/view?usp=sharing
drive.google.com/file/d/0B6ybXnPIa9UQcnFFZnk3YUJNTFU/view?usp=sharing
VSupport
Ngây thơ trong tối Reply: pascal
phamthanhnhan: drive.google.com/file/d/0B6ybXnPIa9UQQVNEWUUwUjBDcEE/view?usp=sharing
drive.google.com/file/d/0B6ybXnPIa9UQcnFFZnk3YUJNTFU/view?usp=sharing Nhấn để mở rộng… Chuẩn đó, em lớp mấy rồi lập trình hay thế :facebook3: P
phamthanhnhan
(｡｡) づ Reply: pascal
VSupport: Chuẩn đó, em lớp mấy rồi lập trình hay thế :facebook3: Nhấn để mở rộng…
kết bác
, lớp 7 học rồi ạ, chuyên pascal thôi chứ C hay C++ hay python chả biết gì cả
VSupport
Ngây thơ trong tối Reply: pascal
phamthanhnhan: kết bác
, lớp 7 học rồi ạ, chuyên pascal thôi chứ C hay C++ hay python chả biết gì cả
Nhấn để mở rộng… Nó cũng tương tự nhau thôi em, nếu đã hiểu thuật toán rồi thì sau này học C++ code dễ dàng. Lớp 7 mà giỏi quá, chẳng bù cho anh ngày xưa học cấp 2 3, học lập trình siêu ngu
Cũng do 1 phần nhà nghèo không có máy tính nữa nên thành ra còn ghét cái lập trình P
phamthanhnhan
(｡｡) づ Reply: pascal
VSupport: Nó cũng tương tự nhau thôi em, nếu đã hiểu thuật toán rồi thì sau này học C++ code dễ dàng. Lớp 7 mà giỏi quá, chẳng bù cho anh ngày xưa học cấp 2 3, học lập trình siêu ngu
Cũng do 1 phần nhà nghèo không có máy tính nữa nên thành ra còn ghét cái lập trình Nhấn để mở rộng…
cũng nhờ công sức của các anh em trên diễn đàn ko ngừng nhiệt tình giúp đỡ nên em mới khá lên được
Bạn đang tìm hiểu bài viết: Tính tổng các số nguyên to từ 1 đến n Pascal 2024
HỆ THỐNG CỬA HÀNG TRÙM SỈ QUẢNG CHÂU
Điện thoại: 092.484.9483
Zalo: 092.484.9483
Facebook: https://facebook.com/giatlathuhuongcom/
Website: Trumsiquangchau.com
Địa chỉ: Ngõ 346 Nam Dư, Trần Phú, Hoàng Mai, Hà Nội.
