Program HOC24;

var i,n: integer;

a: array[1..10000] of integer;

t: longint;

begin

write('Nhap N: '); readln(n);

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to n do if (a[i] mod 3=0) and (a[i] mod 5=0) then t:=t+a[i];

write('Tong la: ',t);

readln

end.

đéo biết

sao chửi ngta thế

Đặt con trỏ chuột ở 1 chỗ bất kỳ trong trang Word > Nhấn chọn thẻ Layout > Ở mục Page Setup > Chọn Orientation > Chọn Landscape.

Xin chào bạn. Tôi là Maria. Tôi đã chết trong một vụ tai nạn năm tôi 8 tuổi. Bạn phải đọc hết tin nhắn này nếu không bạn sẽ gặp xui xẻo cả đời. Hiện tại thì tôi có thể đang ở rất gần bạn và tôi yêu cầu bạn phải chia sẻ tin nhắn này cho 20 người nữa. Nếu không làm được, bạn sẽ chết. Ví dụ 1: Có một chàng trai tên là Jake, anh ấy đọc được tin nhắn này. Nhưng anh đã cười nhạo và không chia sẻ cho 20 người nên vào 2 giờ sáng, anh ấy đã chết do một vụ tai nạn. Một cái chết giống y hệt của tôi. Là tôi làm đấy! Ví dụ 2: Một có gái trẻ tên là Sabrina. Cô cũng nhận được dòng tin nhắn này nhưng cô chỉ chia sẻ cho 10 người và cô đã gặp ác mộng suốt phần đời còn lại. Thêm một ví dụ nữa: Có ba người bạn thân và họ tên là Tina Mersa, Sarah Ri và Chris Na. Họ đang chơi đùa vui vẻ thì nhận được những dòng tin nhắn này và họ đã gửi ngay cho 20 người. Vậy là họ trở thành những con người may mắn. Họ được mọi người yêu quý, điểm số của họ cũng rất cao. Vậy bạn muốn giống ai? Hãy gửi tiếp cho 20 người để được may mắn hoặc không thì bạn sẽ xui xẻo hoặc chết. Trò chơi sẽ bắt đầu từ lúc bạn đọc những dòng tin nhắn này. CHÚC BẠN MAY MẮN!