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

TC

Viết chương trình in ra tổng các số chẵn trong khoảng từ 10 đến 30( sử dụng for...do)

KL
24 tháng 2 2022 lúc 7:03

Var i,s:integer;

Begin

For i:=10 to 30 do

If i mod 2 = 0 then s:=s+i;

Write('Tong la ',s);

Readln;

End.

Bình luận (0)

Các câu hỏi tương tự
NN
Xem chi tiết
TM
Xem chi tiết
BT
Xem chi tiết
PK
Xem chi tiết
NH
Xem chi tiết
TU
Xem chi tiết
H24
Xem chi tiết
HH
Xem chi tiết
HN
Xem chi tiết