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...

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.

Chọn lớp

Chọn môn

Mua vip

BN

Bảo Ngọc

5 tháng 5 2023

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 bao nhiêu lần ?
A 1 lần
B 4 lần
C 2 lần
D 6 lần

#Tin học lớp 8

1

KV

Kiều Vũ Linh

6 tháng 5 2023

A. 1 lần

Các câu hỏi dưới đây có thể giống với câu hỏi trên

DL

Duo Le

4 tháng 1 2022

Hãy cho biết giá trị của a và b là bao nhiêu khi kết thúc chương trình sau:Var a, b: integer;Begin a:=10 ; b:=6; If a>b then begin a :=a - b; b := a + b end; Writeln('a = ', a, ' b = ',b);End.(4 Điểm)a= 4; b = 10a= 4; b = 16a= 10; b = 6a= 10; b =...

#Tin học lớp 8

1

NL

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

5 tháng 1 2022

Chọn A

NA

Nguyên Anh Phạm

23 tháng 4 2021

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ô...

#Tin học lớp 8

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

#Tin học lớp 8

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.

#Tin học lớp 8

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

#Tin học lớp 8

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

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

DD

Đào Duy Quỳnh

25 tháng 6 2020

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á...

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á trị cho các phần tử trong biến A từ bàn phím, ta sẽ nhận được bao nhiêu giá trị

A)7 B)5 C)6 D)4

4) Trong câu lệnh lặp for i=1 to do J:=J+2 writeln (J); khi kết thúc câu lệnh trên, câu lệnh writeln (J) được thực hiện bao nhiêu lần

A) Không thực hiện C) 10 lần

B) 1 lần D) 5 lần

5) Trong pascal, câu lệnh nào sau đây là đúng?

A) for i:= 1 to 10 do writeln (`A');

B) for i:= 4 to 10 do writeln(`A');

C) for i to 10 do writeln (`A')

D)for i:= 1 to 10 do writeln (`A')

6) Trong pascal, câu lệnh nào sau đây đúng?

A) n:=2, while n<5 do writeln (`A')

B) i:=0; 5:=1; while S<10 do writeln (S);

while S<10 do S:= S+i; i=i+1;

C) S:=1,

D) Cả A và B đúng

7) Giả sử biến A có 5 phần tử và giá trị các phần tử lần lượt là 1,4,7,2,6. Khi thực hiện câu lệnh sau

Tb:= 0; for i:= 1 to 5 do

Tb: Tb + A(i)

Giá trị trung bình là bao nhiêu?

A)18 C)21

B)21 D)22

8) Cho đoạn chương trình J:=0; for i:= 1 to S sau khi thực hiện chương trình trên giá trị của biến i bằng bao nhiêu?

A)12 C)42

B)22 D)15

II Tự Luận

1) Viết cú pháp câu lệnh lặp với số lần chưa biết trước. Nêu hoạt động của câu lệnh

2) Viết chương trình nhập điểm kiểm tra học kì môn tin cho N học sinh và in ra màn hình với N và điểm kiểm tra được nhập từ bàn phím ( Sử sụng biến mảng).

#Tin học lớp 8

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.

CT

Cao Thị Minh Vui

9 tháng 4 2020

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...

#Tin học lớp 8

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.

#Tin học lớp 8

1

DN

Đỗ Ngọc Trinh

31 tháng 5 2019

Đáp án C

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...

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ợ]

#Tin học lớp 8

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