chương trình sai rồi nhé bạn
Đúng 0
Bình luận (0)
Bài 10: Cấu trúc lặp
Các câu hỏi tương tự
Cho biết kết quả chương trình sau và giải thích
program vidu;
uses crt;
var i:integer;
begin
clrscr;
i:=15;
while i>1 do
begin
If i mod 2 =0 then i:=i div 2 else i:=i*3+1;
Write(i:5);
End;
readln;
end.
chuyển đoạn lệnh sau sang while-do và tìm kết quả của S và T?
T:=1 ; S:=0;
For i:=1 to 5 do
begin
S:=S+5;
T:=T*2;
End;
cho đoạn chương trình s:=5
for i:=1 to 7 do if i mod 2=0 then s:=s+i else i:=i+1
Yêu cầu:
Viết tiếp câu lệnh để chương trình hoàn thiện
Cho biết kết thúc đoạn chương trình s,i lần lượt nhận giá trị là bao nhiêu?
Cho đoạn chương trình S:=0 ; n:=1; While.......do Begin S:= S+n ; n:=n+1 ; End ; Tính tổng S=1+2+3....+100 , điều kiện nào sau đây cần điền vào chỗ 3 chấm giữa câu lệnh while ...do ? A. n>=100 B n> 100 C n<100 D n<=100
Giúp em
phat hien va sua loi cu phap cho chuong trinh: in ra man hinh tong cac so le co trong day so
Program tong_so_le;
Var N, i : byte; Tong : integer;
A: Array(1..250) of Integer ;
begin
write(Nhap gia tri cho N); Readln(N);
write(nhap gia tri cho day so);
For i1 to N do Readln(A[i]);
Tong :0;
For i :1 to N do;
If (A[i] mod 20) then Tong :Tong + A[i];
Write(Tong cac so le trong day so la: ,Dem);
Readln
End.
Đọc tiếp
phat hien va sua loi cu phap cho chuong trinh: in ra man hinh tong cac so le co trong day so
Program tong_so_le;
Var N, i : byte; Tong : integer;
A: Array(1..250) of Integer ;
begin
write('Nhap gia tri cho N='); Readln(N);
write('nhap gia tri cho day so');
For i=1 to N do Readln(A[i]);
Tong :=0;
For i :=1 to N do;
If (A[i] mod 2<>0) then Tong :=Tong + A[i];
Write('Tong cac so le trong day so la: ',Dem);
Readln
End.
Viết chương trình tính các tổng sau: a) S=1+2+3+4+...+n b) S=1+3+5+...+n-1 c) S=2+4+6+...2n
1Viết chương trình nhập vào số nguyên dương N. Tính tổng các số là bội 3 và 5. In kết quả ra màn hình. 2. Viết chương trình tính tổng S=1+13+15+1N+...+ cho đến khi 1N
Viết chương trình tính tổng A/ S= 1+1+1+1+1 B/ S = 1+2+3+4+5
Câu 1: Sau mỗi lần thực hiện câu lệnh thì giá trị biến đếm như thế nào?
A. không thay đổi B. sẽ giảm xuống C. sẽ tăng lên D. điều chỉnh tự động
Câu 10: Cho câu lệnh for i : 10 downto 1 do write(i); Cho biết câu lệnh Write(i) thực hiện bao nhiêu lần?
A. nhiều lần B. 2 C. 11 D. 10
Câu 2: Trong câu lệnh for i : 10 downto 1 do write(i); Cho biết 10 là gì?
A. Biến đếm B. giá trị đầu C. giá trị cuối D. câu lệnh
Câu 3: Trong câu lệnh for i : 10 downto 1 do write(i); Cho biết i là...
Đọc tiếp
Câu 1: Sau mỗi lần thực hiện câu lệnh thì giá trị biến đếm như thế nào?
A. không thay đổi B. sẽ giảm xuống C. sẽ tăng lên D. điều chỉnh tự động
Câu 10: Cho câu lệnh for i := 10 downto 1 do write(i); Cho biết câu lệnh Write(i) thực hiện bao nhiêu lần?
A. nhiều lần B. 2 C. 11 D. 10
Câu 2: Trong câu lệnh for i := 10 downto 1 do write(i); Cho biết 10 là gì?
A. Biến đếm B. giá trị đầu C. giá trị cuối D. câu lệnh
Câu 3: Trong câu lệnh for i := 10 downto 1 do write(i); Cho biết i là gì?
A. Biến đếm B. giá trị đầu C. giá trị cuối D. câu lệnh
Câu 4: Trong câu lệnh for i := 10 downto 1 do write(i); Cho biết write(i) là gì?
A. Biến đếm B. giá trị đầu C. giá trị cuối D. câu lệnh
Câu 5. Cho câu lệnh for i := 1 to 4 do write(i:2); Kết quả là :
A. 4 3 2 1 B. 1 2 3 4 C. 1 D. 4
Câu 6: Chọn câu lệnh lặp để tính T = \(\Sigma^{50}_{n=1}n+a\)
A. T:=0 ; For i := 1 to n do T := T+i+a;
B.T:=0 ; For i := n downto 1 do T := T+i+a;
C. T:=0 ; For n := 1 to 50 do T := T+n+a;
D.T:=0 ; For n := 1 downto 50 do T := T+n+a;
Câu 7: Biến đếm có kiểu số nguyên thì giá trị đầu và giá trị cuối phải có kiểu gì?
A. Số thực B. Số nguyên C. Logic D. kiểu gì cũng được
1d-2d-3c-4d-5b-6c-7b trong đáp án này có 1 câu sai, đó là câu nào ?