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

DinoDrang

viết chương trình in ra màn hình tính tổng các số chẵn có trong dãy số từ 0 đến n (n được nhập từ bàn phím)

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

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do

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

write(t);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
Bảo Trâm
Xem chi tiết
Maiiii
Xem chi tiết
Phan Thị Ka
Xem chi tiết
Ngọc Nguyễn
Xem chi tiết
Lan Phương
Xem chi tiết
Bảo Trâm
Xem chi tiết
hoangvinh
Xem chi tiết
Huệ anh •01•86
Xem chi tiết
Nguyễn Đoàn Trường Sơn
Xem chi tiết