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.

Câu 1: B

Câu 2: C

Câu 3: B

15 tháng 3 2023

Không có câu nào đúng.

A. Đúng theo cách trình bày nhưng thiếu dẫn đến vòng lặp vô hạn. Phải ghép 2 câu lệnh sau do lại bằng begin ... end;.

B. Sai vè sau while lại là 1 phép gán S:=10

C. Sai, vì sau do câu lệnh lại là 1 điều kiện a=b. Và đây cũng là 1 vòng lặp vô hạn

Câu 1: A

Câu 2: C

23 tháng 2 2021

cảm ơn bạn nhìu

 

20 tháng 4 2023

a) Lỗi: Dư dấu ; sau từ do

b) Lỗi: While i>20 then (sửa: While i>20 do)

c) Lỗi: B=B+2; (sửa: B:=B+2;)

d) Lỗi: dư dấu ; sau từ do

e) Lỗi: S=S*2; (sửa: S:=S*2;)

f) Lỗi: i:=1 (sửa: i:=1;)

Câu 1: B

Câu 2: A

21 tháng 3 2021

lệnh for...to...do:

a)program tinh_tong;

uses crt;

var i,s:byte;

begin

  clrscr;

  s:=0;

  for i:=1 to 9 do s:=s+i;

  write(s);

readln;

end.

b)

program tinh_tong;

uses crt;

var i,s:byte;

begin

  clrscr;

  s:=0;

  for i:=1 to 14 do

begin

if i mod 2=0 then

s:=s+i;

end;

  write(s);

readln;

end.

c)

program tinh_tong;

uses crt;

var i,s:byte;

begin

  clrscr;

  s:=0;

  for i:=1 to 15 do

begin

if i mod 2=1 then

s:=s+i;

end;

  write(s);

readln;

end.

lệnh while...do

a)program tinh_tong;

uses crt;

var i,s:byte;

begin

  clrscr;

  s:=0;

  i:=1;

while i<=9 do

begin

  s:=s+i;

i:=i+1;

end;

  write(s);

readln;

end.

b)program tinh_tong;

uses crt;

var i,s:byte;

begin

  clrscr;

  s:=0;

  i:=1;

while i<=14 do

begin

if i mod 2=0 then

  s:=s+i

else i:=i+1;

end;

  write(s);

readln;

end.

c)

program tinh_tong;

uses crt;

var i,s:byte;

begin

  clrscr;

  s:=0;

  i:=1;

while i<=15 do

begin

if i mod 2=1 then

  s:=s+i

else i:=i+1;

end;

  write(s);

readln;

end.

 cho đoạn chương trình sau a:=1; while a<10 do write ( a); a:=a+1;Hãy cho biết kết quả của a bằng bao nhiêu?A. In ra từ 1 đến 9B. In ra từ 1 đến 10C. lặp vô hạnD. In ra 10Đáp án của bạn:ABCDCâu 02:Câu lệnh nào sau đây viết đúngA. While a<b do a=a+1;B. White a<b do a:=a+1;C. While a< b do a:=a+1;D. while a< b do ; a:=a+1Đáp án của bạn:ABCDCâu 03:kq:=0; while 2*a< b do begin a:=2*a; kq:=kq+1; end;Với a= 1; b=4 thì “ kq “ bằng bao nhiêu?A. 8B. 2C. 6D. 4Đáp...
Đọc tiếp

 

cho đoạn chương trình sau a:=1; while a<10 do write ( a); a:=a+1;
Hãy cho biết kết quả của a bằng bao nhiêu?A. In ra từ 1 đến 9B. In ra từ 1 đến 10C. lặp vô hạnD. In ra 10

Đáp án của bạn:

ABCD

Câu 02:

Câu lệnh nào sau đây viết đúngA. While a<b do a=a+1;B. White a<b do a:=a+1;C. While a< b do a:=a+1;D. while a< b do ; a:=a+1

Đáp án của bạn:

ABCD

Câu 03:

kq:=0; while 2*a< b do begin a:=2*a; kq:=kq+1; end;
Với a= 1; b=4 thì “ kq “ bằng bao nhiêu?A. 8B. 2C. 6D. 4

Đáp án của bạn:

ABCD

Câu 04:

Đoạn chương trình nào sau không bị lỗiA. For i:=1 to n do x:=x+1B. For i=1 to n do x:=x+1;C. For i:=1 to n do x=x+1;D. For i:=1 to n do x:=x+1;

Đáp án của bạn:

ABCD

Câu 05:

với a:=5; b:=6 ; ta có while b> a do b:=b+1;A. lặp vô hạnB. 1000C. 1000000D. 7

Đáp án của bạn:

ABCD

Câu 06:

Đoạn lệnh sau cho kết quả x bao nhiêu. X:=0; for i:=1 to 5 do x:=x+i;A. 15B. 5C. 0D. 20

Đáp án của bạn:

ABCD

Câu 07:

Cú pháp câu lệnh lặp biết trướcA. For < biến đếm> : = < giá trị đầu> to < giá trị cuối> do;B. For < biến đếm> = < giá trị đầu> to < giá trị cuối> doC. For < biến đếm> ; = < giá trị đầu> to < giá trị cuối> doD. For < biến đếm> : = < giá trị đầu> to < giá trị cuối> do

Đáp án của bạn:

ABCD

Câu 08:

với d:=0; while d<n do    begin d:=d+1;     if d mod 10=0 then n:=n+3;    end; wrtite(n);  Với  n=10 thì cho kết quả cuối cùng của n là bao nhiêu?

 

A. 11B. 12C. 10D. 13

Đáp án của bạn:

ABCD

Câu 09:

Cho đoạn chương trình a:=3; b:=2; while b< a do b:=b+1; kết quả của a,b sau khi kết thúc lặp làA. 3,4B. 3,3C. 2,3D. 3,2

Đáp án của bạn:

ABCD

Câu 10:

Cú pháp câu lệnh lặp chưa biết trướcA. While < điều kiện > doB. White < phép gán> do;C. While < điều kiện> do ;D. White < phép gán> do

Đáp án của bạn:

ABCD

Câu 11:

Cho đoạn chương trình a=3; b:=2; while b< a do b:=a; kết quả của a,b sau khi kết thúc lặp làA. 2,3B. 3,4C. 3,3D. 3,2

Đáp án của bạn:

ABCD

Câu 12:

Câu lệnh ghép là câu lệnh đặt giữa từ khóaA. begin;… end.B. Begin … end;C. Begin .. end.D. begin.. readln.

Đáp án của bạn:

ABCD

Câu 13:

Đoạn lệnh sau cho kết quả x bao nhiêu. X:=0; for i:=1 to 5 do x:=x+1;A. 15B. 5C. 20D. 0

Đáp án của bạn:

ABCD

Câu 14:

kq:=0; while 2*a< b do begin a:=2*a; kq:=kq+1; end;
Với a= 2; b=5 thì “ kq “ bằng bao nhiêu?A. 2B. 4C. 3D. 1

Đáp án của bạn:

ABCD

Câu 15:

Đoạn chương trình nào sau không bị lỗiA. For i:=10 to 1 do x:=x+1;B. For i:=1 to 10 do x = x+1;C. for i:=1 to 10 do x:=x+1D. For i:=10 to 1 do x:=x+1

Đáp án của bạn:

ABCD

Câu 16:

Đoạn lệnh sau cho kết quả x bao nhiêu. X:=0; for i:=5 to 1 do x:=x+i;A. 5B. 20C. 15D. 0

Đáp án của bạn:

ABCD

Câu 17:

for i:=1 to n do if n mod 2 =0 then s:=s+i; với n =6 thì kết quả s là?A. 15B. 0C. 21D. 5

Đáp án của bạn:

ABCD

Câu 18:

cho đoạn chương trình sau a:=1; while a<10 do begin write ( a); a:=a+1; end;
Hãy cho biết kết quả của a bằng bao nhiêu?A. In ra từ 1 đến 10B. In ra 10C. In ra từ 1 đến 9D. lặp vô hạn

Đáp án của bạn:

ABCD

Câu 19:

s:= 0; for i:=1 to n do if n mod 2 =0 then s:=s+i; với n =5 thì kết quả s là?A. 15B. 1C. 5D. 0

Đáp án của bạn:

ABCD

Câu 20:

Cho đoạn chương trình a:=3; b:=2; while b< a do begin b:=a; a:=b end; kết quả của a,b sau khi kết thúc lặp làA. 2,3B. 3,3C. 3,2D. 3,4
2
8 tháng 3 2022

giúp mình vs ạ

 

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