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

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Thanh huyền

Viết chương trình pascal sử dụng lệnh while...do hoặc for to do để tính tổng S=3+4+6+...+n. N là số nguyên nhập từ bàn phím

Minh Lệ
7 tháng 3 2023 lúc 17:08

Đề sai đúng không, bạn kiểm tra lại đề nhé, mình không thấy quy luật gì trong dãy tổng của S cả

Minh Lệ
7 tháng 3 2023 lúc 17:36

FOR..DO

Program HOC24;

var i,n: integer;

s: longint;

begin

write('Nhap N: '); readln(n);

S:=0;

For i:=1 to N do if i mod 2=0 then S:=S+i;

write('S = ',S);

readln

end.

Minh Lệ
7 tháng 3 2023 lúc 23:02

While..do

Program HOC24;

var i,n: integer;

s: longint;

begin

write('Nhap N: '); readln(n);

S:=0; i:=2;

while i<=n do 

begin

s:=s+i;

i:=i+2;

end;

write('S = ',S);

readln

end.


Các câu hỏi tương tự
Ngọc Tú
Xem chi tiết
Thu Tuyền
Xem chi tiết
Thu Tuyền
Xem chi tiết
Thanh huyền
Xem chi tiết
Lê Tâm Anh
Xem chi tiết
Thu Anh
Xem chi tiết
Quý Phạm
Xem chi tiết
Nhật Duy Lê Võ
Xem chi tiết
phương thuý nguyễn thị
Xem chi tiết