Sinh Viên Việt Nam

THÀNH CÔNG MART chuyên phân phối thanh long, tủ vải sinh vien, tủ vải đựng quần áo, tu vai dung quan ao giá rẻ và các loại như may tap co bung, | nồi cơm điện | Goi massage hong ngoai | Goi massage | Gối mát xa | Gối massage | Gối massage hồng ngoại | Máy sấy quần áo |May say quan ao | noi com dien | bếp nướng than hoa | bếp nướng than hoa nam hồng | bep nuong than hoa nam hong | bep nuong than hoa | Ghế massage toàn thân nệm massage toàn thân Máy xay công nghiệp máy xay công suất lớn Đai massage x5 Đai mát xa x5 dai mat xa x5 dai massage x5 Điều khiển điều hòa đa năng Máy xay sinh tố công nghiệp máy xay đậu nành nguyên xác Máy xay công nghiệp oshika hàng nhật bản oshika Thương hiệu nhật bản


Trở lại   Sinh Viên Việt Nam > Diễn Đàn Tin Học > Lập Trình > Pascal - Delphi - Kylix

Gởi Ðề Tài Mới  Trả lời
 
Ðiều Chỉnh Xếp Bài
  #1  
Cũ 02-02-2010, 10:33 PM
Pascal
Guest
 
Bài gửi: n/a
Post Tính tổng và đếm các số nguyên tố trong mảng???

Xem hộ mình đúng chưa nhé! ^-^
Mới học pascal dc 2 tuần mò mãi mới viết được có thế này.
-----------------
program baitap;
uses wincrt;
var
a: array[1..100] of integer;
i,j,n,s,d,k:integer;
begin
write('nhap so cac so nguyen trong day n=');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
d:=0;s:=0;k:=0;
for i:=1 to n do
begin
for j:=2 to round(sqrt(a[i])) do
begin
d:=0;
if a[i] mod j = 0 then d:=d 1;
end;
begin
if d=0 then
begin
k:=k 1;
s:=s a[i];
end;
end;
end;
writeln('tong cac so nguyen to trong day la ',s);
writeln('so cac so nguyen to trong day la ',k);
readln;
end.
Trả Lời Với Trích Dẫn
Gởi Ðề Tài Mới  Trả lời

Bookmarks

Ðiều Chỉnh
Xếp Bài

Quyền viết bài
Bạn không thể gửi chủ đề mới
Bạn không thể gửi trả lời
Bạn không thể gửi file đính kèm
Bạn không thể sửa bài viết của mình

BB code is Mở
Mặt cười đang Mở
[IMG] đang Mở
HTML đang Tắt


Chủ đề giống nhau
Chủ đề Người khởi xướng chủ đề Diễn đàn Trả lời Bài mới gửi
Công cụ mới mô phỏng hiện tượng nguyệt thực trong quá khứ và tương lai ziggy001 Tin Xã Hội 1 23-06-2009 01:40 PM
Giáo trình nguyên lý động cơ đốt trong hehe Ebook Khoa học - Kỹ thuật 0 07-06-2009 10:55 PM
Giáo trình nguyên lý động cơ đốt trong hehe Ebook Khoa học - Kỹ thuật 0 07-06-2009 10:37 PM
10 lời nguyền kỳ lạ trong lịch sử nhoclovehehe Những Điều Kỳ Thú 0 29-05-2009 10:22 PM
10 lời nguyền kỳ lạ trong lịch sửCó những lời nguyền rất đơn giản nhưng rất nhiều trong số đó khiến người ta phải sởn tóc gáy. Dưới đây là 10 lời nguyền nổi tiếng nhất. ziggy001 Những Điều Kỳ Thú 0 17-05-2009 01:48 PM




Powered by: vBulletin v3.8.4 Copyright ©2000-2019, Jelsoft Enterprises Ltd.