Viết chương trình nhập vào một số nguyên N (0<N<10000) Câu a: Tính và in ra tổng tất cả S=1+2+3+...+n-2+n-1+n Câu 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âu c:Tính tổng tất cả các số nguyên dương bé hơn n vừa chia hết cho 3 và 5 M

vthuong.c3ncthanh

2 năm trước

Viết chương trình nhập vào một số nguyên N (0<N<10000) Câu a: Tính và in ra tổng tất cả S=1+2+3+...+n-2+n-1+n Câu 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âu c:Tính tổng tất cả các số nguyên dương bé hơn n vừa chia hết cho 3 và 5 Mong mọi người trả lời giúp em ạ Cảm ơn trước ạ

Loga Sinh Học lớp 12

0 lượt thích 26 xem

1 trả lời

Thích Trả lời

buixuanhieutn

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

minhthao43

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

Phân tích tác động của Hiệp ước 1883 và 1884

Tính chiều cao của một ngọn núi, cho biết tại hai điểm cách nhau 550m, người ta nhìn thấy đỉnh núi với góc nâng lần lượt là 33° và 37° (làm trong đến mét) Thầy cô vẽ hình và tính hộ ạ, cảm ơn ạ.

viết đoạn văn ngắn bằng tiếng Anh nói về chế độ ăn uống lành mạnh

Những điểm mới về văn hóa nước ta thế kỉ XVI-XVIII. Vì sao chứ cái La Tinh ghi âm tiếng việt trở thành chữ quốc ngữ của nước ta cho đến ngày nay?

Kể tên bậc phân loại (lớp, ngành, bộ,...) của 5 loài thực vật Mong mn giúp ạ!

kí hiệu và đơn vị đo của cường độ dòng điện?

chứng minh biểu thức sau không phụ thuộc vào $\alpha$ A = $\frac{tg\alpha }{1 - tg^2 \alpha}$ . $\frac{cot g^2 \alpha - 1}{cot g \alpha}$

Cho vật sáng AB cao 3m, đặt vuông góc với trục chính của thấu kính tại A. Có OF=9cm biết vật AB cách thấu kính một khoảng 19cm. a) Vẽ ảnh A'B' của AB qua thấu kính hội tụ và thấu kính phân kì (vẽ đúng tỉ lệ). b) Tính độ cao của ảnh và khoảng cách của ảnh đến thấu kính trong 2 trường hợp.

Số học sinh lớp 4 của Trường Tiểu học Điện Biên là 144 bạn, trong đó số học sinh nam bằng 5/7 số học sinh nữ. Tính số học sinh nam và số học sinh nữ của Trường Tiểu học Điện Biên. Giúp e bài 2này với ạ E cảm ơn

Cho tam giác ABC, trên cạnh AC lấy điểm M, trên cạnh BC lấy điểm N sao cho AM=3MC, NC=2NB. Gọi O là giao điểm của AN và BM. Tính diện tích tam giác ABC biết diện tích tam giác OBN =1

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