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

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Đức Nguyễn

Viết chương trình pascal tính tổng sau :

S = 2+4+6+...+100

Tú Nguyễn
15 tháng 1 2019 lúc 12:40

var i,s:integer;

begin

s:=0;

for i:=1 to 100 do

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

writeln(' Tong la: ',s);

readln;

end.

Tú Nguyễn
15 tháng 1 2019 lúc 12:26

oke


Các câu hỏi tương tự
Gia Hân
Xem chi tiết
Minh Khang
Xem chi tiết
ko có tên
Xem chi tiết
Nguyễn Kim Trí
Xem chi tiết
Yến Nhii
Xem chi tiết
Yến Nhii
Xem chi tiết
Bùi Gia Kiệt
Xem chi tiết
Lưu Thanh Hà
Xem chi tiết
29-Lê Gia Nghị
Xem chi tiết