Bài 7. Câu lênh lặp

ND

viết chương trình tính tổng/tích các số chắn 1->n

S=2+4+6+...+n

help me pls :(((

NT
3 tháng 2 2023 lúc 11:28

uses crt;

var i,n,s:integer;

begin

clrscr;

readln(n);

s:=0;

for i:=1 to n do

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

write(s);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
YL
Xem chi tiết
NP
Xem chi tiết
PK
Xem chi tiết
PL
Xem chi tiết
H24
Xem chi tiết
LK
Xem chi tiết
ML
Xem chi tiết
NN
Xem chi tiết
LT
Xem chi tiết