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.

9 tháng 4 2022

Đáp án D

Bạn sửa lại đề chút: ketqua := 1; While ketqua<2 do writeln(ketqua);

Vì đây là vòng lặp với số lần chưa biết trước (while..do) trong câu lệnh chỉ có in ra biến ketqua mà không có lệnh nào làm thay đổi giá trị của biến ketqua, mà điều kiện ketqua<2 (luôn luôn đúng) -> vòng lặp vô hạn -> in vô hạn số 1 trên mỗi dòng (vì dùng writeln)

Câu 35: A

Câu 36: A

 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 ạ

 

Bài 1: 

uses crt;

var n,i,s:integer;

begin

clrscr;

write('Nhap n='); readln(n);

s:=0;

i:=1;

while i<=n do 

  begin

s:=s+i;

inc(i);

end;

writeln('Tong cac so trong khoang tu 1 den ',n,' la: ',s);

readln;

end.

Bài 2: 

uses crt;

var n,i,s:integer;

begin

clrscr;

write('Nhap n='); readln(n);

s:=0;

i:=1;

while i<=n do 

  begin

s:=s+i;

i:=i+2;

end;

writeln('Tong cac so le trong khoang tu 1 den ',n,' la: ',s);

readln;

end.

29 tháng 12 2017

Câu D

1 tháng 12 2021

giúp em với

 

1 tháng 12 2021

Caua1:

program caumot;

begin

writeln('lop 8A chao ban!');

end.

Câu 2:

program cauhai;

int a,b,c :real;

begin

write('a='); readln(a);

write('b='); readln(b);

c= a+b;

write('Tong hai so a b la:',c);

end.

11 tháng 4 2023

Cách 1 dùng lệnh for do:

Uses crt;

var i,n,k: integer;

begin clrcsr;

readln(n);

for i:=1 to n do begin

if(i mod 2=0) and (i>=10) then k:=k*i;

end;

writeln(k);

readln;

end.

Cách 2 dùng lệnh while do

Uses crt;

var m,n,o: integer;

begin clrcsr;

readln(n);

o:=1;

m:=1;

while (m<n) do begin

m:=m+1;

if(m mod 2=0) and (m>=10) then o:=o*m;

end;

writeln(o);

readln;

end.

a: 125 mod 5<>0

b: 

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 50 do t:=t+i;

write(t);

readln;

end.

c: for <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;

d: 

Dạng thiếu: if <điều kiện> do <câu lệnh>;

Dạng đủ: if <điều kiện> do <câu lệnh 1> else <câu lệnh 2>;

30 tháng 3 2022

đúng ko vậy:))