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

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Phuong Nguyen
Viết chương trình tính tổng các số chẵn của dãy 20 số tự nhiên đầu tiên (khác 0)
Nguyễn Lê Phước Thịnh
7 tháng 2 2021 lúc 9:17

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=1 to 20 do 

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

writeln('Tong cac so chan trong khoang 20 so tu nhien dau tien la: ',s);

readln;

end.


Các câu hỏi tương tự
Tiến Lê nhật
Xem chi tiết
Bùi Văn Tho
Xem chi tiết
Unh hello linh
Xem chi tiết
Bé Heo
Xem chi tiết
Hắc Phong
Xem chi tiết
Ma Phan Đức
Xem chi tiết
Tuyết Lê
Xem chi tiết
Trần Minh Hoàng
Xem chi tiết
Nguyễn Ally
Xem chi tiết