Question

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

Answer 1

Đề 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ả

Answer 2

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.

Answer 3

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.