Chạy đoạn chương trình
a) S:=1; P:=2;
For i:=1 to 5 do S:=S+i; P:=P*S;
b)S:=1; P:=1;
For i:=1 to 3 do begin S:=S+1; P:=P*S end;
Câu 14: Cho đoạn chương trình sau:
S:=0;
For i:=1 to 1 do S:=S+1;
Sau khi chạy đoạn chương trình trên, giá trị S là:
A. S=100. B. S=0. C. S=1. D. Không xác định.
Câu 14: Cho đoạn chương trình sau:
S:=0;
For i:=1 to 1 do S:=S+1;
Sau khi chạy đoạn chương trình trên, giá trị S là:
A. S=100. B. S=0. C. S=1. D. Không xác định.
Dựa vào đoạn chương trình sau, em hãy sử dụng cấu trúc 1 chương trình và các khai báo cần thiết để viết chương trình hoàn chỉnh đưa ra được giá trị biến S và số vòng lặp sau khi chạy chương trình S:=0; n:=0; while S<=50 do begin n:= n+1; S:= s+n end;
uses crt;
var s,n:integer;
begin
clrscr;
s:=0;
n:=0;
while s<=50 do
begin
n:=n+1;
s:=s+n;
end;
writeln(n);
writeln(s);
readln;
end.
cho s và i là biến nguyên khi chạy đoạn chương trình s:=0,for i:= 1 to 3 do s:=s+3*i,writeln (s)
Trong đoạn chương trình sau:
s:=-2; i:=1;
while s <= 15 do
begin
i:=i+3;
s:=s+i;
End;
Vòng lặp chạy bao nhiêu lần?
Giá trị của S sau khi chạy đoạn chương trình sau là: S:=7 If(S
Sử dụng câu lệnh For…do và While…do để viết chương trình
a) s=1+2+3
b) s=2+4+...+2n
c) s=1+2+3+...+n
d) s=1+3+5+…+(2n+1)
e) s=1+1/2+1/3+...+1/n
f) p=1.2.3...n
h) s=1.2.3
i) s=1+1/2+1/3
GIÚP VỚI Ạ,CẦN SIU GẤP,HƯA TICK
b:
uses crt;
var i,n,s:integer;
begin
clrscr;
readln(n);
s:=0;
for i:=1 to n do s:=s+2*i;
writeln(s);
readln;
end.
c:
uses crt;
var i,n,s:integer;
begin
clrscr;
readln(n);
s:=0;
for i:=1 to n do s:=s+i;
writeln(s);
readln;
end.
d:
uses crt;
var i,n,s:integer;
begin
clrscr;
readln(n);
s:=0;
for i:=0 to n do s:=s+2*i+1;
writeln(s);
readln;
end.
Cho S và i là biến nguyên. Khi chạy đoạn chương trình :
S := 1;
for i:=1 to 5 do s := s+i;
Kết quả in lên màn hình là của s là :
A. 15
B. 16
C. 11
D. 22
Cho S và i là biến nguyên. Khi chạy đoạn chương trình :
S := 1; for i:=1 to 5 do s := s+i;
Kết quả in lên màn hình là của s là :
A. 15
B. 16
C. 11
D. 22