Trình bày thuật toán giải bài toán đếm và tính tổng các số chia hết cho 3 của dãy gồm n số nguyên dương cho trước.

View more random threads:

• Nên mua máy đồng bộ nay lắp ráp?
• Không tải được Yahoo! Messenger 10
• Hỏi về nguyên nhân không vào được web
• [gấp] chương trình con
• Lỗi fire fox
• Lập trình bài toán về hình xoắn ốc
• Virus tạo thư mục New Folder giả
• Cho em xin 1 key microsoft office 2010 proffessional...
• Cho mình hỏi cách sử dụng Site Grabber của IDM để...
• [Hỏi] Cách xóa tin nhắn trong chatbox

Nguồn: http://diendankienthuc.net.

chị viết hàm kiểm tra số chia hết cho 3 trước. hoặc là xài thủ tục cũng đc :D
sau đó viết luôn chương trình chính
trong chương trình chính thì cho quét hết tất kả các số. dùng hàm kiểm tra xem số đó có chia hết cho 3 không. số nào chia hết thì gán biến đếm thêm 1 đơn vị và cộng vs biến tổng là ok r.....^^!
[bài nỳ dễ mờ :D]

rÙa tjỂu tHư

 21:04, 21st Dec 2011 #7098 

hjhj. cứ quan trọng hoá vấn đề ;)) ko cần xài mảg hay thủ tục j` hết :D e post lại bài r áh :D

Nguồn: http://diendankienthuc.net.

Var a:array [1..100] of integer;
dem, tong, i, n: integer;
BEGIN
{nhập vào từ bàn phím n số}
Write (‘n =’); read (n);
For i:= 1 to n do
begin write (‘a[‘,i,’] =’ );
read (a[i]); end;
{đếm và tính tổng}
dem:=0;
tong:=0;
For i:=1 to n do
If a[i] mod 3 = 0 then
begin dem:= dem + 1;
tong:= tong + a[i];
end;
writeln (‘So cac so chia het cho 3 trong day la ’, dem);
writeln (‘Tong cac so chia het cho 3 trong day la ’, tong);
END.

rÙa tjỂu tHư

 21:20, 21st Dec 2011 #7101 

n > 100 thì gán n > 1000 đj :)) ko thì lớn hơn nữa áh ;))

rÙa tjỂu tHư

 21:16, 21st Dec 2011 #7100 

thì gán từng já trị của dãy cho từg já trị a[ i ] một. hờ hờ ;)) mờ cho tr'c thì ko fải nhập zô máy chắc :P

abc_253_39

 21:13, 21st Dec 2011 #7099 

nếu n > 100 thì sao,và dãy đã cho trước nhá...,,ko cần nhập ;))

Nguồn: http://diendankienthuc.net.