K
Khách

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.

Bài 1 Hãy cho biết giá trị của x bằng bao nhiêu sau khi thực hiện xong câu lệnh

a)    X=0, for i:=1 to 5 do X:=x+1;

b)    X:=0; i:=1,while i(=5 do begin X:X*1), i:=1+1 end

c)    X:=5,if (45 mod 3)=0 then X:=x+2

d)    X:=7;If x>10 then X:=x=1 else X:=X-2

e)    N:10,X:=100,while n.10 do n:=n+5, x:=x-n

f)     X=0,for i=1 to 3 do x:=x+2*1Bài 1 Hãy cho biết giá trị của x bằng bao nhiêu sau khi thực hiện xong câu lệnh

a)    X=0, for i:=1 to 5 do X:=x+1;

b)    X:=0; i:=1,while i(=5 do begin X:X*1), i:=1+1 end

c)    X:=5,if (45 mod 3)=0 then X:=x+2

d)    X:=7;If x>10 then X:=x=1 else X:=X-2

e)    N:10,X:=100,while n.10 do n:=n+5, x:=x-n

f)     X=0,for i=1 to 3 do x:=x+2*1Bài 1 Hãy cho biết giá trị của x bằng bao nhiêu sau khi thực hiện xong câu lệnh

a)    X=0, for i:=1 to 5 do X:=x+1;

b)    X:=0; i:=1,while i(=5 do begin X:X*1), i:=1+1 end

c)    X:=5,if (45 mod 3)=0 then X:=x+2

d)    X:=7;If x>10 then X:=x=1 else X:=X-2

e)    N:10,X:=100,while n.10 do n:=n+5, x:=x-n

f)     X=0,for i=1 to 3 do x:=x+2*1Bài 1 Hãy cho biết giá trị của x bằng bao nhiêu sau khi thực hiện xong câu lệnh

a)    X=0, for i:=1 to 5 do X:=x+1;

b)    X:=0; i:=1,while i(=5 do begin X:X*1), i:=1+1 end

c)    X:=5,if (45 mod 3)=0 then X:=x+2

d)    X:=7;If x>10 then X:=x=1 else X:=X-2

e)    N:10,X:=100,while n.10 do n:=n+5, x:=x-n

f)     X=0,for i=1 to 3 do x:=x+2*1Bài 1 Hãy cho biết giá trị của x bằng bao nhiêu sau khi thực hiện xong câu lệnh

a)    X=0, for i:=1 to 5 do X:=x+1;

b)    X:=0; i:=1,while i(=5 do begin X:X*1), i:=1+1 end

c)    X:=5,if (45 mod 3)=0 then X:=x+2

d)    X:=7;If x>10 then X:=x=1 else X:=X-2

e)    N:10,X:=100,while n.10 do n:=n+5, x:=x-n

f)     X=0,for i=1 to 3 do x:=x+2*1Bài 1 Hãy cho biết giá trị của x bằng bao nhiêu sau khi thực hiện xong câu lệnh

a)    X=0, for i:=1 to 5 do X:=x+1;

b)    X:=0; i:=1,while i(=5 do begin X:X*1), i:=1+1 end

c)    X:=5,if (45 mod 3)=0 then X:=x+2

d)    X:=7;If x>10 then X:=x=1 else X:=X-2

e)    N:10,X:=100,while n.10 do n:=n+5, x:=x-n

f)     X=0,for i=1 to 3 do x:=x+2*1Bài 1 Hãy cho biết giá trị của x bằng bao nhiêu sau khi thực hiện xong câu lệnh

a)    X=0, for i:=1 to 5 do X:=x+1;

b)    X:=0; i:=1,while i(=5 do begin X:X*1), i:=1+1 end

c)    X:=5,if (45 mod 3)=0 then X:=x+2

d)    X:=7;If x>10 then X:=x=1 else X:=X-2

e)    N:10,X:=100,while n.10 do n:=n+5, x:=x-n

f)     X=0,for i=1 to 3 do x:=x+2*1Bài 1 Hãy cho biết giá trị của x bằng bao nhiêu sau khi thực hiện xong câu lệnh

a)    X=0, for i:=1 to 5 do X:=x+1;

b)    X:=0; i:=1,while i(=5 do begin X:X*1), i:=1+1 end

c)    X:=5,if (45 mod 3)=0 then X:=x+2

d)    X:=7;If x>10 then X:=x=1 else X:=X-2

e)    N:10,X:=100,while n.10 do n:=n+5, x:=x-n

f)     X=0,for i=1 to 3 do x:=x+2*1Bài 1 Hãy cho biết giá trị của x bằng bao nhiêu sau khi thực hiện xong câu lệnh

a)    X=0, for i:=1 to 5 do X:=x+1;

b)    X:=0; i:=1,while i(=5 do begin X:X*1), i:=1+1 end

c)    X:=5,if (45 mod 3)=0 then X:=x+2

d)    X:=7;If x>10 then X:=x=1 else X:=X-2

e)    N:10,X:=100,while n.10 do n:=n+5, x:=x-n

f)     X=0,for i=1 to 3 do x:=x+2*1Bài 1 Hãy cho biết giá trị của x bằng bao nhiêu sau khi thực hiện xong câu lệnh

a)    X=0, for i:=1 to 5 do X:=x+1;

b)    X:=0; i:=1,while i(=5 do begin X:X*1), i:=1+1 end

c)    X:=5,if (45 mod 3)=0 then X:=x+2

d)    X:=7;If x>10 then X:=x=1 else X:=X-2

e)    N:10,X:=100,while n.10 do n:=n+5, x:=x-n

f)     X=0,for i=1 to 3 do x:=x+2*1Bài 1 Hãy cho biết giá trị của x bằng bao nhiêu sau khi thực hiện xong câu lệnh

a)    X=0, for i:=1 to 5 do X:=x+1;

b)    X:=0; i:=1,while i(=5 do begin X:X*1), i:=1+1 end

c)    X:=5,if (45 mod 3)=0 then X:=x+2

d)    X:=7;If x>10 then X:=x=1 else X:=X-2

e)    N:10,X:=100,while n.10 do n:=n+5, x:=x-n

f)     X=0,for i=1 to 3 do x:=x+2*1Bài 1 Hãy cho biết giá trị của x bằng bao nhiêu sau khi thực hiện xong câu lệnh

a)    X=0, for i:=1 to 5 do X:=x+1;

b)    X:=0; i:=1,while i(=5 do begin X:X*1), i:=1+1 end

c)    X:=5,if (45 mod 3)=0 then X:=x+2

d)    X:=7;If x>10 then X:=x=1 else X:=X-2

e)    N:10,X:=100,while n.10 do n:=n+5, x:=x-n

f)     X=0,for i=1 to 3 do x:=x+2*1

2
8 tháng 4 2021

bạn ơi khi nào cho câu hỏi thì cho ngắn thôi :))

8 tháng 4 2021

hoặc từng câu một

 

1, 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; s:=s+5;writeln(s); Kết quả in lên màn hình là? * A.12 B. 10 C.23 D. 26 2, Kêt quả của câu lệnh For i:=1 to 20 do if i mod 3=2 then write(i:3); * A.In ra các số lẻ từ 1 đến 20; B. In ra các số chẵn từ 1 đến 20; C. In ra các số chia hết cho 3 từ 1 đến 20; D. In ra các số chia hết cho 3 dư 2 từ 1 đến 20; 3, Trong...
Đọc tiếp
1, 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; s:=s+5;writeln(s); Kết quả in lên màn hình là? * A.12 B. 10 C.23 D. 26

2, Kêt quả của câu lệnh For i:=1 to 20 do if i mod 3=2 then write(i:3); *

A.In ra các số lẻ từ 1 đến 20; B. In ra các số chẵn từ 1 đến 20; C. In ra các số chia hết cho 3 từ 1 đến 20; D. In ra các số chia hết cho 3 dư 2 từ 1 đến 20;

3, Trong câu lệnh lặp For i:=3 to 15 do s:=s+i; Có bao nhiêu vòng lặp? *

A. 15; B. 12; C. 13 D. 3;

4, Cho k,m,n nhận giá trị tương ứng 4,5,6; kết thúc câu lệnh sau:X:=n; If ((x mod 2=0)) or (x<=5) then x:=m*k else x:=m div k; thì x có giá trị là ? *

A. 1 B. 0 C. 5. D. 20 5, 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<=5 do n:= n+1;s:= s+n; * A. 3 B. 6 C. 10 D. kết quả khác 6, Cho a,b,c lần lượt nhận giá trị 10,30,20 . Hỏi sau đoạn chương trình Begin X:=a; If x>a then x:=a; if x>b then x:=b;if x>c then x:=c;end; x có giá trị là? * A. 20 B. 10 C. 30 D. Cả ba đáp án đều sai. 7, Cho x:=7; kết thúc câu lệnh If ((x mod 3=0)) and (x<=8) then x:=x+10; thì x có giá trị là ? * A. 8 B. 10 C. 17 D. 7 8, 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 9, 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<=3 do begin n:= n+1;S:= s+n; end; * A. 15 B. 10 C. 6 D. 3
1
10 tháng 12 2020

1. C

2. D

3. C

4. D

5. D

6. B

7. D

8. B

9. C

 

26 tháng 2 2022

Sai

a) if a>b then max:=a; else max:=b;b) var X: Array[5..10] Of Real; c) X:=10; while X:=10 do X := X+5; d) for  i:=1.5 to 10 do m:=m + 1;e) if a>b then max:=a else max:=b;f) var X: Array[5.5..10] Of Real; g) X:=10; while X>10 do X := X+5; h) for  i:=1.5 to 10 do m:=m + 1;III. Hãy viết các câu lệnh, khai báo theo yêu cầu sau: A. Khai báo mảng A gồm 50 phần tử thuộc kiểu dữ liệu số thực.B. Phần tử thứ  5 của mảng A được gán giá trị là 8.C. Khai báo mảng dayso gồm...
Đọc tiếp

a) if a>b then max:=a; else max:=b;

b) var X: Array[5..10] Of Real;

c) X:=10; while X:=10 do X := X+5;

d) for  i:=1.5 to 10 do m:=m + 1;

e) if a>b then max:=a else max:=b;

f) var X: Array[5.5..10] Of Real;

g) X:=10; while X>10 do X := X+5;

h) for  i:=1.5 to 10 do m:=m + 1;

III. Hãy viết các câu lệnh, khai báo theo yêu cầu sau:

A. Khai báo mảng A gồm 50 phần tử thuộc kiểu dữ liệu số thực.

B. Phần tử thứ  5 của mảng A được gán giá trị là 8.

C. Khai báo mảng dayso gồm 50 phần tử thuộc kiểu dữ liệu số nguyên.

D. Nhập giá trị cho phần tử thứ 2 trong mảng diem.        

IV. Bài tập

 Viết chương trình thực hiện các yêu cầu sau:

a.    Nhập điểm văn và điểm toán của n học sinh trong một lớp (n nhập từ bàn phím)

b.    Tính điểm trung bình của mỗi học sinh (kết quả lấy 1 chữ số thập phân)

help với mai ktr ;-;

 

1

III:
A: var a:array[1..50]of real;

B: a[5]:=8;

C: var a:array[1..50]of integer;

D: readln(dem[2]);

1) Trong đoạn lệnh sau đây, chương trình đã thực hiện bao nhiêu vòng lặp? S:=0; i:=0; While S<=20 do Begin S:=S+i; i:=i+1; end; a) 2 b) 4 c) 8 d) vô hạn 2) Trong đoạn lệnh sau đây, chương trình đã thực hiện bao nhiêu vòng lặp? x:=0; For i:=1 to 5 do x:=x+3; a) 1 b) 3 c) 5 d) 15 3) Sau khi thực hiện đoạn chương trình sau, giá trị của biến x bằng bao nhiêu? x:=0; For i:=1 to 5 do x:=x+3; a) 1 b) 3 c) 5 d) 15 4) Sau khi thực hiện đoạn...
Đọc tiếp

1) Trong đoạn lệnh sau đây, chương trình đã thực hiện bao nhiêu vòng lặp?

S:=0; i:=0;

While S<=20 do

Begin

S:=S+i; i:=i+1;

end;

a) 2 b) 4 c) 8 d) vô hạn

2) Trong đoạn lệnh sau đây, chương trình đã thực hiện bao nhiêu vòng lặp?

x:=0;

For i:=1 to 5 do x:=x+3;

a) 1 b) 3 c) 5 d) 15

3) Sau khi thực hiện đoạn chương trình sau, giá trị của biến x bằng bao nhiêu?

x:=0;

For i:=1 to 5 do x:=x+3;

a) 1 b) 3 c) 5 d) 15

4) Sau khi thực hiện đoạn chương trình sau, giá trị của biến S bằng bao nhiêu?

S:=0; i:=0;

While S<=20 do

Begin S:=S+i; i:=i+1; end;

a) 18 b) 21 c) 25 d) 52

5) Đoạn chương trình sau đây đã mắc phải lỗi gì?

a:=5;

While a<=6 do Writeln(‘A’);

a) Sử dụng sai cú pháp lệnh While ... do

b) Cho biết trước số lần lặp

c) Không cho biết trước số lần lặp

d) Lặp vô hạn

6) Trong ngôn ngữ lập trình Pascal, câu lệnh For ... do là lệnh:

a) Không cho biết trước số lần lặp

b) Cho biết trước số lần lặp

c) Biết trước hay không biết trước số lần lặp đều sử dụng được

d) Cả a, b, c đều sai

7) Trong ngôn ngữ lập trình Pascal, câu lệnh lặp được dùng để thể hiện:

a) Cấu trúc lặp c) Cấu trúc điều kiện

b) Cấu trúc rẽ nhánh d) Cấu trúc mảng

8) Trong ngôn ngữ lập trình Pascal, lệnh lặp với số lần chưa biết trước là câu lệnh:

a) For ... do c) If ... then ...

b) While ... do d) If ... then ... else...

9) Trong ngôn ngữ lập trình Pascal, câu lệnh nào sau đây hợp lệ?

a) For i:=10 to 1 do Writeln(‘A’);

b) For i:=10.5 to 1.5 do Writeln(‘A’);

c) For i=1 to 10 do Writeln(‘A’);

d) For i:=1 to 10 do Writeln(‘A’);

10) Trong ngôn ngữ lập trình Pascal, câu lệnh nào sau đây hợp lệ?

a) x:=10; While x:=10 do x:=x+5;

b) x=10; While x=10 do x=x+5;

c) x:=10; While x=10 do x:=x+5;

d) x=10; While x:=10 do x=x+5;

0

a: Bỏ chữ then

b: Thiếu dấu ngoặc và dấu chấm phẩy sau cùng

c: Bỏ dấu ; trước chữ else

19 tháng 1 2022

Sửa lại như vầy:

a) a:=5;

While a < 10 do

a:=a + 1;

b) for i:=1 to 10 do write('ABC');

c) If x > 5 then x:=x + 1

Else x:=x - 1;

12 tháng 6 2020

Bài 1: S=15

Bài 2: S=17

Bài 3:

1)X:=10; while X:=10 to X:(thiếu dấu '=') X+5;

2) X:=10; while X = 10 do X(thiếu dấu ';') =X+5 (thiếu dấu ';')

3) S:=0; n:=0; while S <= 10 do (thiếu 'begin') n:(thiếu dấu '=')n+1 ,(để kết thúc đoạn lệnh dùng dấu ';' không phải dấu ',') S:= S+n; (thiếu end;)

12 tháng 10 2019

a) 2 lỗi

- thiếu do

- vòng lặp for tuyệt đối không có ;

b: sau writeln('A') không có chấm phẩy

c: sai chỗ y:=10

phải là y=10 mới đúng

d: sử dụng 2 chấm phẩy là sai

sau while do nếu có từ 2 lệnh trở lên phải bao bọc trong begin end

e: thiếu dấu : sau i, đi từ 100 tới 20 là sai,

phải là for i:=100 downto 20 do mới đúng

f: không sai

TRẮC NGHIỆM: Câu 1:Vòng lặp sau thực hiện bao nhiêu lần lặp: For i := 1 to 5 do a := a + 1; A. 3 lần. B. 4 lần. C. 5 lần. D. 6 lần. Câu 2:Số lần lặp được tính như thế nào? A. Giá trị đầu–giá trị cuối B. Giá trị đầu–giá trị cuối + 1 C.Giátrịcuốigiátrịđầu . Giá trị cuối–giá trị đầu + 1 Câu 3:Trong câu lệnh lặp, kiểu dữ liệu của biến đếm là: A. Real B. String C.Integer D. Char Câu 4:Câu lệnh lặp...
Đọc tiếp
TRẮC NGHIỆM: Câu 1:Vòng lặp sau thực hiện bao nhiêu lần lặp: For i := 1 to 5 do a := a + 1; A. 3 lần. B. 4 lần. C. 5 lần. D. 6 lần. Câu 2:Số lần lặp được tính như thế nào? A. Giá trị đầu–giá trị cuối B. Giá trị đầu–giá trị cuối + 1 C.Giátrịcuốigiátrịđầu . Giá trị cuối–giá trị đầu + 1 Câu 3:Trong câu lệnh lặp, kiểu dữ liệu của biến đếm là: A. Real B. String C.Integer D. Char Câu 4:Câu lệnh lặp với số lần chưa biết trước bắt đầu bằng từ khóa: A. For B.While C. If D. Var Câu 5:Vòng lặp sau cho kết quả bằng bao nhiêu: i := 0; T := 0; While i < 3 do begin T := T + 1; i := i + 1; end; A. T = 2 B. T = 3 C. T = 4 D. T = 5 Câu 6:Khai báo biến kiểu mảng nào sau đây là hợp lệ: A. Var A, B: array[1..50] of integer; B. Var A, B: array[1..N] of real; C. Var A: array[100..1] of integer; D. Var B: array[1.5..10.5] of real; Câu 7:Cú pháp câu lệnh lặp với số lần chưa biết trước: A. For ... to... do B. For <biến đếm>:=<giá trị cuối> to <giá trị đầu> do <câu lệnh>; C. For ... do D. For <biến đếm>:=<giá trị đầu > to <giá trị cuối > do <câu lệnh>; Câu 8:Chọn câu lệnh đúng: A. x:=1; while x:= 10 do x:=x+5; B. x:=1; while x> 10 do x:=x+5; C. x:=1; while x<10 do x:=x+5; D. x:=10; while x< 10 do x=x+5; Câu 9:Trong câu lệnh For ... do, sau từ khóa “Do” có hai câu lệnh trở lên ta “gói” chúng trong: A. Begin...readln; B. Begin...and; C. End...Begin D. Begin... end; Câu 10:Cho biết ý nghĩa của câu lệnh sau: For i:=1 to 10 do Readln(a[i]); A. In dãy số trong mảng a B. Nhập dãy số cho mảng a C. Nhập giá trị cho biến i D. In giá trị cho biến i Câu 11:Các câu lệnh sau, câu lệnh nào hợp lệ ? A. For i:=1 to 10 do; write (‘a’) B. For i:=1 to 10 do write (‘a’); C.var x:real; begin for x:=1 to 10 do write (‘a’); end. Câu 12:Cho đoạn chương trình: J:= 0; For i:= 1 to 5 do J:= j + i; Sau khi thực hiện đoạn chương trình trên, giá tị của biến J bằng bao nhiêu? A. 12 B. 22 C. 15 D. 42 Giúp mình nha! Cần gấp!
0