H24

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 ạ

NT
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.

Bình luận (0)

Các câu hỏi tương tự
ND
Xem chi tiết
HG
Xem chi tiết
BT
Xem chi tiết
H24
Xem chi tiết
H24
Xem chi tiết
CQ
Xem chi tiết
TV
Xem chi tiết
T8
Xem chi tiết
PV
Xem chi tiết