Lập trình đơn giản

Jenny Phạm

Em hãy viết chương trình tính tổng các số chẵn tự nhiên từ 1 đến 100 sử dụng lệnh for...do, while...do

Leejung Kim
15 tháng 2 2018 lúc 13:29

Sử dụng For.. do:

Var i,S:integer;

Begin

For i:= 1 to 100 do If i mod 2 = 0 then S:= S+i;

Writeln(' tong cac so chan :',S);

Readln;

end.

Sử dụng While ..do:

Var i,S:integer;

Begin

i:=0;

While i<=100 do If i mod 2 = 0 then S:= S+i;

Writeln(' tong cac so chan :',S);

Readln;

end.

Bình luận (0)

Các câu hỏi tương tự
Trà My Võ
Xem chi tiết
Tuyết Lê
Xem chi tiết
Tùng Dương
Xem chi tiết
Bé Heo
Xem chi tiết
Kamato Heiji
Xem chi tiết
lio Nana
Xem chi tiết
Ma Phan Đức
Xem chi tiết
Ngọc Thảo
Xem chi tiết
Trịnh Quốc Bảo
Xem chi tiết