Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
bngan

viết ct tính tổng các số chẵn nhỏ hơn N (N được nhập vào) 
giúp mình với ạ

Nguyễn Lê Phước Thịnh
4 tháng 2 2023 lúc 15:22

uses crt;

var m,n,s,i:integer;

begin

clrscr;

readln(n);

s:=0;

m:=1;

for i:=m to n do

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

writeln(s);

readln;

end.


Các câu hỏi tương tự
Nguyễn Kim Đan
Xem chi tiết
Hương Giang
Xem chi tiết
Bùi Lê Thanh Trúc
Xem chi tiết
khôi
Xem chi tiết
khôi
Xem chi tiết
Cao Ngọc Bảo Quyên
Xem chi tiết
Thùy Linh Võ
Xem chi tiết
tâm 8a3
Xem chi tiết
Phùng Tú Văn
Xem chi tiết