Lê Thị Tuyết Trinh
Hỏi từ APP VIETJACK
Viết chương trình tính tổng các số lẻ từ 1 đến 1000
Quảng cáo
2 câu trả lời 3765
uses crt;
var kq,i: integer;
begin
for i:=1 to 1000 do
if i mod 2 <> 0 then inc(kq,i);
write('Tong so le 1 den 1000 la: ',kq);
end.
var kq,i: integer;
begin
for i:=1 to 100 do
if not i mod 2 = 0 then inc(kq,i);
write('Tong so le 1 den 100 la: ',kq);
end.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
86328
Gửi báo cáo thành công!
