Sửa:
S:=0;n:=0;
while s<=10 do
Begin
n:=n+1;
s:=s+n;
End;
Đúng 1
Bình luận (0)
Các câu hỏi tương tự
Tìm lỗi sai của chương trình sau và sửa lại cho đúng:
Program câu 1;
Var n: Integer; s:real;
Begin
Writeln(‘ Nhap gia tri n=’); Readln;
S:=0;
While n >0 do
s:=s+n/2; n:=n-1;
write(‘tong s = ‘, s:8:2);
Readln;
End.
Mn giải giúp mik vs ạ. Mik cảm ơn ạ
Cho biết đoạn chương trình Pascal sau đây chương trình thực hiện bao nhiêu vòng lặp?
S:=0; n:=0;
while S<10 do
begin
n:= n+1;
S:= s+n
end;
A. 3
B. 4
C. 5
D. 6
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;
Cho biết đoạn chương trình Pascal sau đây chương trình thực hiện bao nhiêu vòng lặp?
S:=0; n:=0;
while S<=2 do
n:= n+1;
S:= s+n;
A. 3
B. 6
C. 10
D. Kết quả khác
Câu 16: Cho đoạn chương trình sau: S0; n0;while (S10) { nn+1; SS+n;} Khi kết thúc hãy cho biết giá trị của biến n là bao nhiêu? A. 5; B. 10C. 15 D. Giá trị khácCâu 17: Cho đoạn chương trình sau: S0; n0;while (n5) {SS+n; nn+1; } Khi kết thúc hãy cho biết giá trị của biến n là bao nhiêu? A. 0; B. 10C. 15 D. Giá trị khácCâu 18: Cho đoạn chương trình sau: S0; n0;wh...
Đọc tiếp
Câu 16: Cho đoạn chương trình sau:
S=0; n=0;
while (S<=10)
{ n=n+1; S=S+n;}
Khi kết thúc hãy cho biết giá trị của biến n là bao nhiêu?
A. 5; B. 10
C. 15 D. Giá trị khác
Câu 17: Cho đoạn chương trình sau:
S=0; n=0;
while (n>5)
{S=S+n; n=n+1; }
Khi kết thúc hãy cho biết giá trị của biến n là bao nhiêu?
A. 0; B. 10
C. 15 D. Giá trị khác
Câu 18: Cho đoạn chương trình sau:
S=0; n=0;
while (n>5)
{S=S+n; n=n+1; }
Khi kết thúc hãy cho biết giá trị của biến S là bao nhiêu?
A. 0; B. 10; C. 15; D. Giá trị khác
Câu 19: Cho đoạn chương trình sau:
S=0; n=0;
while (n>5)
{S=S+n; n=n+1; }
Khi kết thúc hãy cho biết máy tính thực hiện bao nhiêu vòng lặp?
A. 0; B. 10; C. 15; D. Giá trị khác
Câu 20: Cho đoạn chương trình sau:
n=0;
while (n==0) cout<<“Chao cac ban”;
Khi kết thúc hãy cho biết máy tính thực hiện bao nhiêu vòng lặp?
A. 0. B. Vô số vòng lặp.
C. 15. D. Giá trị khác.
II. PHẦN TỰ LUẬN
Câu 1: Viết chương trình nhập mảng A có tối đa 50 phần tử là số nguyên (các phần tử được nhập từ bàn phím). In ra màn hình mảng vừa nhập, mỗi phần tử cách nhau 1 dấu cách trống.
Câu 2: Viết chương trình nhập mảng A có tối đa 100 phần tử là số nguyên (Các phần tử được nhập từ bàn phím). Hãy đếm xem có bao nhiêu phần tử âm.
Câu 3: Viết chương trình nhập mảng A có tối đa 250 phần tử là số thực (Các phần tử được nhập từ bàn phím). Hãy tìm số lớn nhất Max trong mảng A.
Câu 4: Viết chương trình nhập mảng A có N phần tử là số nguyên (N được nhập từ bàn phím). Hãy tìm số bé nhất Min trong mảng A.
Câu 5: Viết chương trình nhập mảng A có tối đa 100 phần tử là số nguyên (Các phần tử được nhập từ bàn phím). Hãy tính và in ra tổng S các phần tử âm.
cho đoạn chương trình sau. em hãy xác định số vòng lặp và tính giá trị của biến n sau khi kết thúc đoạn chương trình? S:=1;n:=0. While S
Xem chi tiết
Cho biết đoạn chương trình Pascal sau đây chương trình thực hiện bao nhiêu vòng lặp?
S:=0; n:=0;
while S<=1 do
n:= n+1;
S:= s+n;
A. 3
B. 6
C. 10
D. Kết quả khác
Em hãy xác định các câu lệnh sau đây đúng hay sai? Nếu sai hãy giải thích tại sao?
a) For i:=150 to 1 do writeln(‘A’);
b) For i:=1.5 to 30.5 do writeln(‘B’);
c) S:=0;n:=0; While S<=20 do begin n:=n+1;S:=S+n; end
d) Var X: array[10..1] of integer;
e) Var X: array[1,5...20,5] of integer;
f) Var X: array[1..30] of integer;
Cho biết đoạn chương trình Pascal sau đây, khi kết thúc giá trị của S bằng bao nhiêu?
S:=0; n:=0;
while S<10 do
begin
n:= n+1;
S:= s+n
end;
A. 15
B. 10
C. 6
D. 3