Những câu hỏi liên quan
TV
Xem chi tiết
KK
29 tháng 3 2022 lúc 20:09

A

Bình luận (0)
NN
Xem chi tiết
NT
23 tháng 2 2021 lúc 20:14

Câu 1: A

Câu 2: C

Bình luận (1)
LN
Xem chi tiết
ML
15 tháng 3 2023 lúc 23:00

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

Bình luận (0)
HV
Xem chi tiết
NT
3 tháng 12 2021 lúc 22:14

s>10

Bình luận (0)
TB
Xem chi tiết
KL
20 tháng 4 2023 lúc 9:02

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;)

Bình luận (0)
TT
Xem chi tiết
NL
11 tháng 5 2021 lúc 8:17

D

Bình luận (0)
NT
11 tháng 5 2021 lúc 11:00

Chọn D

Bình luận (0)
KL
Xem chi tiết
DH
23 tháng 4 2020 lúc 9:32

13 (Không chắc :)

Bình luận (0)
LT
Xem chi tiết
BT
12 tháng 4 2021 lúc 19:45

Bài 1 

a,

Bình luận (0)
BT
12 tháng 4 2021 lúc 19:46

baif 2

a,

Bình luận (0)
NT
12 tháng 4 2021 lúc 20:25

Câu 1:

a)

Uses crt;

Var i:integer;

S:real;

Begin

Clrscr;

S:=0;

For i:=1 to 10 do

S:=s+1/i;

Writeln(s:4:2);

Readln;

End.

Bình luận (0)
SK
Xem chi tiết
TP
14 tháng 8 2018 lúc 9:53

a) Thừa dấu hai chấm trong điều kiện;

b) Thiếu dấu hai chấm trong câu lệnh gán;

c) Thiếu các từ khóa begin và end trước và sau các lệnh n:=n+1; S:=S+n, do đó vòng lặp trở thành vô tận.

Bình luận (0)