Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
B1: Trong các hoạt động sau đây hoạt động nào là hoạt động lặp với số lần chưa biết trước:
A. tính tổng các số tự nhiên từ 1 đến 20.
B. Nhập các số nguyên cho đến khi đủ 50 số
C. Mỗi ngày tập TD 2 lần
D. Nhập dữ liệu từ bàn phím cho đến khi nhập xong dữ liệu khi dừng
B2: Đoạn lệnh sau đây in ra kết quả gì?
s:=0; while s<10 do begin s:=s+1;
Writeln(s); end;
A. In ra các số từ 1 đến 9.
B. In ra các số từ 1 đến 10.
C. In ra các số 1.
D. Không có đáp án đúng.
B3: Hãy cho biết đâu là đoạn lệnh lặp bằng câu lệnh While...do để tính tổng S=1+2+...+10?
A. S:=0; while i<10 do S:=S+i;
B. S:=0; i:=0; while i<11 do begin S:=S+i; i:=i+1; end;
C. S:=0; i:=1; while i do S:=S+i; i:=i+1;
D. S:=0; i:=0; while i<=10 do begin S:=S+i; i:=i+1; end;
nho stick nha
may tinh da thuc hien 10 vong lap.
vong lap 1:i=1;T=1;
vong lap 2:i=2;T=3;
vong lap 3:i=3;T=6;
vong lap 4:i=4; T=10;
vong lap 5:i=5;T=15;
vong lap 6:i=6;T=21;
vong lap 7:i=7;T=28;
vong lap 8:i=8;T=36;
vong lap 9:i=9;T=45;
vong lap 10:i=10;T=55;
thêm câu này nữa mn ạ:
Câu lệnh For i:= 3 to 10 do begin write(i); end; khi thực hiện xong sẽ viết ra số 13 7 10 14câu cuối ạ Cho câu lệnh sau: s:=0; For i:=1 to 5 do if i mod 2 = 0 then s:=s+i else s:= s+i; cho biết kết quả s ?
Câu 4:
Cú pháp: While <điều kiện> do <câu lệnh>;
Cách thực hiện: Khi điều kiện thỏa mãn thì tiếp tục thực hiện câu lệnh cho đến khi điều kiện không thỏa mãn
Vd: While a mod b<>0 do a:=a+1;
Câu 5:
a) S=6
b) Treo máy
c) S=4
Câu 6:
Dữ liệu kiểu mảng là một tập hợp hữu hạn các phần tử có cùng một kiểu dữ liệu, gọi là kiểu của phần tử. Việc sắp thứ tự được thực hiện bằng cách gán cho mỗi phần tử một chỉ số
Cú pháp: Var <tên biến mảng>:array[<chỉ số đầu>..<chỉ số cuối>]of <kiểu dữ liệu>;
Vd: Var b:array[1..100]of real;
Câu khai báo biến mảng không chạy khi giá trị đầu lớn hơn giá trị cuối
1: i=9; t=-8
2: i=7; s=16
3: i=10; s=55
4: T=-12; i=12
5: i=7; T=28