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

BN

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

KL
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ự
PK
Xem chi tiết
LK
Xem chi tiết
H24
Xem chi tiết
TN
Xem chi tiết
BT
Xem chi tiết
HS
Xem chi tiết
H24
Xem chi tiết
H24
Xem chi tiết
YL
Xem chi tiết