Hải Yến Hoàng
Hỏi từ APP VIETJACK
Hãy viết chương trình nhập số nguyên dương n sau đó tính tổng các số lẻ chia hết cho 3 trong phạm vi từ 1 đến n
Quảng cáo
2 câu trả lời 497
3 năm trước
uses crt;
var n,i,dem:integer;
begin
clrscr;
write('Nhap so nguyen duong n='); readln(n);
dem:=0;
for i:=1 to n do
if i mod 3=0 then dem:=dem+i;
writeln(dem);
readln;
end.
Quảng cáo
Câu hỏi hot cùng chủ đề
Gửi báo cáo thành công!