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

Nguyễn Dũng

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 :(((

Nguyễn Lê Phước Thịnh
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ự
Yến Trần Thị Lê
Xem chi tiết
Nguyễn Đặng Hà Phương
Xem chi tiết
Phan Thị Ka
Xem chi tiết
phuong linh
Xem chi tiết
MinTae
Xem chi tiết
Lê Đăng Khôi
Xem chi tiết
Minh Lê
Xem chi tiết
Nguyến Ngọc Nguyên
Xem chi tiết
Lê Bích Thủy
Xem chi tiết