Bài 8. Lặp với số lần chưa biết trước

NB

Viết chương trình tính tổng các số chia hết cho 2 từ 1 đến 12

NT
29 tháng 5 2022 lúc 13:11

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 12 do 

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

writeln(t);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
AS
Xem chi tiết
CN
Xem chi tiết
LL
Xem chi tiết
YT
Xem chi tiết
MT
Xem chi tiết
DT
Xem chi tiết
KH
Xem chi tiết
NH
Xem chi tiết
PT
Xem chi tiết