Tin học Viết chương trình tính tổng

[Team2k2]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Viết chương trình tính tổng: 1+3+5+7+...+99

 

[Fairy Piece]

Viết chương trình tính tổng: 1+3+5+7+...+99

sum=0
i chạy từ 1 tới 99 nếu i mod 2 =1 thì sum= sum+i

 

[Team2k2]

sum=0
i chạy từ 1 tới 99 nếu i mod 2 =1 thì sum= sum+i

qua mk làm vậy ra tổng =1

 

[Team2k2]

sum=0
i chạy từ 1 tới 99 nếu i mod 2 =1 thì sum= sum+i

1 mod 2 ko bằng 1.

 

[Fairy Piece]

1 mod 2 ko bằng 1.

Program Tong_le;
var i,sum: integer;
begin
sum:=0;
for i:=1 to 99 do
if (i mod 2=1) then sum:=sum+i;
writeln(sum);
end.