Số lẻ trong pascal

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

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


(dễ mà bn)

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 iIf 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?

bạn hãy viết chương trình PASCAL để tính tổng các số lẻ(Yêu cầu là tính đựoc n số lẻ)
MÓi các chuyên gia tin học trổ tài!!! Làm giùm mình nha
Mình làm thử rùi nhưng mà chỉ tính được số lượng số lẻ cho trước thui (ko tình được n số) nản quá

Viết chương trình thực hiện nhập 10 phần tử có giá trị nguyên cho mảng A từ bàn phím và tính tổng các phần tử lẻ
giúp mik với thanks nhiều chiều nay mik kiểm tra rồi huhu

Code đây bạn:

var A: array [1..100] of integer;
i,n,S:integer;
begin
write('Nhap so n: '); readln(n);
for i:=1 to n do
begin
write('A[',i,'] = '); readln(A);
end;
writeln;
S:=0;
for i:=1 to n do
if A mod 2 = 1 then
begin
write(A:5);
S:=S+A;
end;
write('Tong cac so le la: ',S);
readln
end.

Bài này vầy là OK rồi. Mình mới thi HK2 đề này xong.

Thiên Thuận said:

Code đây bạn:

var A: array [1..100] of integer;
i,n,S:integer;
begin
write('Nhap so n: '); readln(n);
for i:=1 to n do
begin
write('A[',i,'] = '); readln(A);
end;
writeln;
S:=0;
for i:=1 to n do
if A mod 2 = 1 then
begin
write(A:5);
S:=S+A;
end;
write('Tong cac so le la: ',S);
readln
end.

Bài này vầy là OK rồi. Mình mới thi HK2 đề này xong.

Bấm để xem đầy đủ nội dung ...

Nguyễn Thánh Tiền said:

TỐN bộ nhớ

nhập, kiểm trA , tính tổng luôn

Thân

Bấm để xem đầy đủ nội dung ...

Program CT_Tinhtong;
Uses CRT;
Var S,i,n: Integer;
Begin
Clrscr;
Write('Nhap so n:');Readln(n);
S:=0;
For i:=1 to n do
Begin
If i mod 2 = 1 then S:=S+i;
End;
Writeln('Tong la:',S);
Readln;
End.