Bài 7. Câu lênh lặp

Bảo Ngân

viết chương trình in ra các số lẻ trong 1000 số tự nhiên daaffu tiên và tính tổng các số lẻ đó 

mọi người giúp mình vs ạ , mai mình ktra r , thankkkk

Kiều Vũ Linh
23 tháng 2 2023 lúc 11:15

Var i,s:longint;

Begin

For i:=1 to 999 do

If i mod 2 <> 0 then

Begin

Write(i:6);

s:=s+i;

End;

Writeln;

Write('Tong la ',s);

Readln;

End.

Bình luận (0)

Các câu hỏi tương tự
Phan Thị Ka
Xem chi tiết
Lê Đăng Khôi
Xem chi tiết
Maiiii
Xem chi tiết
Trang Nguyễn
Xem chi tiết
Bảo Trâm
Xem chi tiết
hello sun
Xem chi tiết
NgocTuan
Xem chi tiết
Duongtrucqui
Xem chi tiết
Yna Lolipop
Xem chi tiết