Viết chương trình nhập vào một số nguyên n ( 0<n <10000 a) Tính và in ra tổng tất cả S=1+2+3....+n -2+n-1+n b) Thông báo ra màn hình có bao nhiều số nguyên từ 1 đến n chia hết cho 5 c) Tính tổng tất cả các số nguyên dương bé hơn n vừa chưa hết cho 3 và 5

vyyen1008

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 18 xem

1 trả lời

Thích Trả lời

laura18

program BT;

uses crt;

var n,d: integer;

i,S,T: longint;

Begin

clrscr;

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

for i:=1 to n do

begin

S:=S+i;

if i mod 5=0 then d:=d+1;

if (i mod 3=0) and (i mod 5=0) then T:=T+i;

end;

writeln('a) S = ',S);

writeln('b) Tu 1 den ',n,' co ',d,' so chia het cho 5');

write('c) Tong cac so chia het cho 3 va 5 = ',T);

readln

End.

Vote (0) Phản hồi (0) 2 năm trước

nguyenhoangxuan14

Program BT;
Var n,i,s,t,d :longint;
Begin
repeat
Write ('Nhap N : ');Readln(n);
until (n > 0) and (n < 10000);
s := 0;
d := 0;
t := 0;
For i := 1 to n do
Begin
s := s + i;
If i mod 5 = 0 then
Begin
d := d + 1;
If i mod 3 = 0 then t := t + i;
end;
end;
Writeln ('a,Tong la : ',s);
Writeln ('b,So cac so chia het cho 5 la : ',d);
Write ('c,Tong cac so vua chia het cho 5 va 3 la : ',t);
end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Kể tên các loại biển báo giao thông mà em biết và nêu ý nghĩa

một chiếc lò xo bị nén lại và được ném lê cao với vận tốc v khi đó có các dạng cơ năng nào

tính ny × nx biết n=2009 x+y=100

Ở người chu kì tế bào của nơron thần kinh có những giai đoạn nào. Sự rối loạn kiểm soát chu kì sẽ dẫn tới hậu quả gì. Cho ví dụ Giúp em với ạ

Cho nửa đường tròn tâm O đường kính AB . Tiếp tuyến Ax . Gọi C là 1 điểm trên nửa đường tròn . Tia phân giác của góc CAx cắt nửa đường tròn tại E . AE và BC cắt nhau tại K . Chứng minh : a. Tam giác ABK cân b. Gọi I là giao điểm của AC và BE . CM : KI// Ax c. CM : OE // BC d. BI cắt Ax tại F . CM : tứ giác AIKF là hình thoi Giải giúp mình 2 ý cuối thôi nha

tìm và 3 dẫn chứng và chứng minh người vệt nam luôn sống theo đạo lí ăn quả nhớ kẻ trồng cây ,mấy bạn có quyền kham khảo hoặc giống mạng nhưng mik mong mấy bạn chứng minh sâu lên chút ,nếu chép mạng thì mik bcvp đó trl đúng hứa vote 5s + ctrln+cảm ơn

viết doạn văn từ 15 dến 20 câu nói về sống ở dời cần có 1 tấm lòng

Một số người bán hàng sau khi tan chợ, tiện có dòng sông bên cạnh đã xả rác thải xuống đấy. Em có đồng tình với ý kiến này không? Vì sao?

nêu khái niệm về sản lượng sơ cấp và sự khác nhau cơ bản giữa sản lượng sơ cấp và sản lượng thứ cấp

Tác động của cuộc chiến tranh thế giới thứ 2 đến việt nam

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến