Chạy chương trình a:=6; b:=10 div 3; While (a>=b) do begin writeln('hello'); b:=7; end. thì từ hello xuất hiện...

Cho đoạn chương trình sau:N:=0;While N>0 do Begin N:=N+1; Writeln('Xin chao'); EndKhi thực hiện chương trình,câu "Xin chao" được viết ra màn hình mấy lần?A.10 B.9C.0 D.Vòng lặp vô...

1

NL

Nguyễn Lê Phước Thịnh

5 tháng 1 2022

Chọn A

Đúng(1)

NA

Nguyên Anh Phạm

23 tháng 4 2021

2

TT

😈tử thần😈

23 tháng 4 2021

C vì N=0 mà đk N>0 nên CT ko thực hiện câu lệnh đó

NL

Nguyễn Lê Phước Thịnh

23 tháng 4 2021

Câu Xin chao không được viết ra màn hình

NT

Nguyễn Trần Minh Thư

6 tháng 5 2021

Làm giúp mik câu này với:

Trong đoạn ct sau thực hiện bao nhiêu vòng lặp :

s:=9 ; i:=1 ; while s>5,5 do s:=s+i;

A. 5 lần

B. 4 lần

C. Không lần nào

D. 6 lần

2

LQ

Lưu Quang Trường

6 tháng 5 2021

Làm giúp mik câu này với:

Trong đoạn ct sau thực hiện bao nhiêu vòng lặp :

s:=9 ; i:=1 ; while s>5,5 do s:=s+i;

A. 5 lần

B. 4 lần

C. Không lần nào

D. 6 lần

vô hạn lần nha bạn

LQ

Lưu Quang Trường

6 tháng 5 2021

xin lỗi bạn nha

vô hạn lần nha bạn

LT

Lê Thị Thu Hà

6 tháng 3 2018

sửa lại chương trình sau ko cho vô hạn lần:

vả a:integer;

begin

a:=5;

while a<6 do writeln('A');

end.

0

SV

sỹ vũ

24 tháng 4 2019

c1: với đoạn lệnh sau chương trình có chạy được ko ? vì sao ?

Var a: Integer;

begin

a:=5;

while a<6 do writeln('A');

end

2

HH

Huy Hoàng

24 tháng 4 2019

Không vì vòng lặp sẽ lặp vô hạn và bị lỗi 201

Với lại end không có dấu chấm

I Trắc Nghiệm 1) Khi thực hiện đoạn chương trình sau: n:=1; T:=50; while n>20 do Begin n:=n+5;T:=T-n end; Hãy cho biết giá trị của biến T A)16 B)15 C)14 D)17 2) Trong câu lệnh khai báo mảng, phát biểu nào sau đây đúng? A) Cả 3 ý trên B) Chỉ số đầu và số cuối là 2 số nguyên C) Kiểu dữ liệu có integer D) Chỉ số đầu và chỉ số cuối 3) Khai báo biến mảng A: array [1...7] of real; for i= 1 to 5 do; Readln (A[i]) để gắn giá...

T

Thiện

24 tháng 4 2019

trả lời: có

nhưng nó sẽ chạy vô hạn ko bao giờ dừng lại do a=5 luôn bé hơn 6

Đúng(1)

DD

Đào Duy Quỳnh

25 tháng 6 2020

3

ML

Minh Lệ

27 tháng 6 2020

Câu 2.

Program HOC24;

var i,n: integer;

a: array[1..32000] of integer;

begin

write('Nhap so ban lam bai thi hoc ki tin : '); readln(n);

for i:=1 to n do

begin

write('Nhap diem kiem tra hoc ki Tin cua ban thu ',i,' :'); readln(a[i]);

end;

writeln(n);

for i:=1 to n do write(a[i],' ');

readln

end.

ML

Minh Lệ

27 tháng 6 2020

Câu 1.

* Cú pháp : while <điều kiện> do <câu lệnh>;

* Hoạt động :

- Bước 1: Kiểm tra điều kiện lặp:

+ Nếu điều kiện lặp sai thì thoát khỏi vòng lặp, chuyển sang lệnh tiếp theo.

+ Nếu điều kiện lặp đúng thì chuyển sang bước 2.

- Bước 2: Thực hiện khối các lệnh lặp.

- Bước 3: Quay lại bước 1.

Bài 1: Trong các câu lệnh Pascal sau đây, câu lệnh nào đúng, câu lệnh nào sai. Em hãy khoanh tròn vào chỗ sai. a) While i=1 do t:=10; b) while a<=b; do write('b khong nho hon a'); c) while 1=1 do write('Toi lap trinh gioi'); d) i:=1; while i<10 do sum:=sum+1; i:=i+1; e) i:=1; x:=5; while i<x do i:= i+1; write(' Gia tri cua i la',i); Bài 2: Tìm hiểu đoạn chương trình sau và cho biết kết quả của i, j, k sau khi thực hiện đoạn chương trình là bao nhiêu Đoạn...

CT

Cao Thị Minh Vui

9 tháng 4 2020

0

NC

Nguyễn Cảnh Hùng

31 tháng 5 2019

Cho đoạn chương trình sau:

n:=1;

While n<10 do

Begin

n:=n+1;

Writeln(‘ xin chao’);

end;

Khi thực hiện chương trình câu “ xin chao” được viết ra màn hình mấy lần?

A. 0

B.10

C. 9

D. Vòng lặp vô tận.

1

DN

Đỗ Ngọc Trinh

31 tháng 5 2019

Đáp án C

program bt3; uses crt; var n: longint; dem: byte; chucngan,ngan,tram,chuc,donvi: byte; begin writeln('Nhap n ='); read(n); if n < 0 then repeat writeln('Nhap n > 0'); read(n) until n <= 100000; chucngan:=0; ngan:=0; tram:=0; chuc:=0; donvi:=0; while n >= 0 do begin dem:=0; n:=n div 10; dem:=dem+1; end; case dem of 1: begin if n = 0 then writeln('khong'); if n = 1 then writeln('mot'); if n = 2 then writeln('hai'); if n = 3 then writeln('ba'); if n = 4 then writeln('bon'); if n = 5 then writeln('nam'); if...

LD

Luân Đào

24 tháng 5 2019

program bt3;
uses crt;
var n: longint;
dem: byte;
chucngan,ngan,tram,chuc,donvi: byte;
begin
writeln('Nhap n ='); read(n);
if n < 0 then repeat writeln('Nhap n > 0'); read(n) until n <= 100000;
chucngan:=0; ngan:=0; tram:=0; chuc:=0; donvi:=0;
while n >= 0 do begin
dem:=0;
n:=n div 10; dem:=dem+1;
end;
case dem of
1: begin
if n = 0 then writeln('khong');
if n = 1 then writeln('mot');
if n = 2 then writeln('hai');
if n = 3 then writeln('ba');
if n = 4 then writeln('bon');
if n = 5 then writeln('nam');
if n = 6 then writeln('sau');
if n = 7 then writeln('bay');
if n = 8 then writeln('tam');
if n = 9 then writeln('chin');
end;
2: begin
chuc:=0;
chuc:= n div 10;
case chuc of
1: writeln('muoi');
2: writeln('hai muoi ');
3: writeln('ba muoi ');
4: writeln('bon muoi ');
5: writeln('nam muoi');
6: writeln('sau muoi');
7: writeln('bay muoi');
8: writeln('tam muoi');
9: writeln('chin muoi ');
end;
donvi:=0;
donvi:=n mod 10;
case donvi of
0: writeln(' ');
1: writeln('mot');
2: writeln('hai');
3: writeln('ba');
4: writeln('bon');
5: writeln('lam');
6: writeln('sau');
7: writeln('bay');
8: writeln('tam');
9: writeln('chin');
end;
end;
3: begin
tram:=0;
tram:= n div 100;
case tram of
1: writeln('mot tram ');
2: writeln('hai tram');
3: writeln('ba tram');
4: writeln('bon tram');
5: writeln('lam tram');
6: writeln('sau tram');
7: writeln('bay tram');
8: writeln('tam tram');
9: writeln('chin tram');
end;
chuc:=0;
n:= n mod 100;
chuc:= n div 10;
case chuc of
1: writeln('muoi');
2: writeln('hai muoi ');
3: writeln('ba muoi ');
4: writeln('bon muoi ');
5: writeln('nam muoi');
6: writeln('sau muoi');
7: writeln('bay muoi');
8: writeln('tam muoi');
9: writeln('chin muoi ');
end;
donvi:=0;
donvi:=n mod 10;
case donvi of
0: writeln(' ');
1: writeln('mot');
2: writeln('hai');
3: writeln('ba');
4: writeln('bon');
5: writeln('lam');
6: writeln('sau');
7: writeln('bay');
8: writeln('tam');
9: writeln('chin');
end;
end;
4: begin
ngan:=0;
ngan:=n div 1000;
case ngan of
1: writeln('mot ngan');
2: writeln('hai ngan');
3: writeln('ba ngan');
4: writeln('bon ngan');
5: writeln('nam ngan');
6: writeln('sau ngan');
7: writeln('bay ngan');
8: writeln('tam ngan');
9: writeln('chin ngan');
end;
tram:=0;
n:= n mod 1000;
tram:= n div 100;
case tram of
1: writeln('mot tram ');
2: writeln('hai tram');
3: writeln('ba tram');
4: writeln('bon tram');
5: writeln('nam tram');
6: writeln('sau tram');
7: writeln('bay tram');
8: writeln('tam tram');
9: writeln('chin tram');
end;
chuc:=0;
n:=n mod 100;
chuc:= n div 10;
case chuc of
1: writeln('muoi');
2: writeln('hai muoi ');
3: writeln('ba muoi ');
4: writeln('bon muoi ');
5: writeln('nam muoi');
6: writeln('sau muoi');
7: writeln('bay muoi');
8: writeln('tam muoi');
9: writeln('chin muoi ');
end;
donvi:=0;
donvi:= n mod 10;
case donvi of
0: writeln(' ');
1: writeln('mot');
2: writeln('hai');
3: writeln('ba');
4: writeln('bon');
5: writeln('lam');
6: writeln('sau');
7: writeln('bay');
8: writeln('tam');
9: writeln('chin');
end;
end;
5: begin
chucngan:=0;
chucngan:=n div 10000;
case chucngan of
1: writeln('muoi');
2: writeln('hai muoi');
3: writeln('ba muoi');
4: writeln('bon muoi');
5: writeln('nam muoi');
6: writeln('sau muoi');
7: writeln('bay muoi');
8: writeln('tam muoi ');
9: writeln('chin muoi');
end;
ngan:=0;
n:= n mod 10000;
ngan:=n div 1000;
case ngan of
1: writeln('mot ngan');
2: writeln('hai ngan');
3: writeln('ba ngan');
4: writeln('bon ngan');
5: writeln('nam ngan');
6: writeln('sau ngan');
7: writeln('bay ngan');
8: writeln('tam ngan');
9: writeln('chin ngan');
end;
tram:=0;
n:= n mod 1000;
tram:= n div 100;
case tram of
1: writeln('mot tram ');
2: writeln('hai tram');
3: writeln('ba tram');
4: writeln('bon tram');
5: writeln('nam tram');
6: writeln('sau tram');
7: writeln('bay tram');
8: writeln('tam tram');
9: writeln('chin tram');
end;
chuc:=0;
n:= n mod 100;
chuc:= n div 10;
case chuc of
1: writeln('muoi');
2: writeln('hai muoi ');
3: writeln('ba muoi ');
4: writeln('bon muoi ');
5: writeln('nam muoi');
6: writeln('sau muoi');
7: writeln('bay muoi');
8: writeln('tam muoi');
9: writeln('chin muoi ');
end;
donvi:=0;
donvi:= n mod 10;
case donvi of
0: writeln(' ');
1: writeln('mot');
2: writeln('hai');
3: writeln('ba');
4: writeln('bon');
5: writeln('lam');
6: writeln('sau');
7: writeln('bay');
8: writeln('tam');
9: writeln('chin');
end;
end;
6: writeln('Mot tram ngan');
end;
readln;
end.

Sao chạy không đc, kiểm tra giúp (đã chỉnh sửa, nhập đc rồi)

Tin học [Hỗ trợ]

3

ML

Minh Lệ

24 tháng 5 2019

Bạn cho mình xem đề được không

LD

Luân Đào

24 tháng 5 2019

Nhập vào số nguyên dương n <= 100000 và in ra màn hình cách đọc