[PASCAL]_ lập chương trình con tính tổng các số lẻ

[thisismedinh@yahoo.com.vn]

[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 con tính tổng các số lẻ trong dãy số từ 1 đến n

 

[bm.stromray]

var i,n,s:integer;
begin
s:=0;
write('Nhap so n:');readln(n);
i:=1;
while i<n do
begin
s:=s+i;
i:=i+2;
end;
write('Tong cac so le la:',s);
readln;
end.


(dễ mà bn)>-

 

[galaxy98adt]

viết chương trình con tính tổng các số lẻ trong dãy số từ 1 đến n

program tinh_tong;
uses crt;
var i, N, S: integer;
Begin
clrscr;
write('Nhap N: ');
readln(N);
S:= 0;
for i:= 1 to N do
if i mod 2 <> 0 then S:= S + i;
write('Tong cac so le trong day so tren la: ' ,S);
readln
End.
BẠN CÓ THỂ LÀM THEO CHƯƠNG TRÌNH NÀY NHA!!!

 

[Hoami246]

Bạn ơi sao ở bài trên khi sử dụng vòng lặp While..do
Thay i:=i +1; thì chương trình ko chạy nhỉ.
While i<n do
If i mod 2 = 1 then
Begin
S:=S+i;
i:= i +1;
Begin;
Đó i = i+2; thì chạy mà i = i+ 1; lại ko chạy là sao?