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 3416
3 năm trước
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.
3 năm trước
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
Câu hỏi hot cùng chủ đề
Gửi báo cáo thành công!