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 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.
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.
c1: 5+6
c2: a là 1 số nguyên
b là 1 kí tự
c3: a là 1 số nguyên
b là 1 xâu kí tự
c4: hai số a,b được hoán vị cho nhau như vậy lúc này a mang giá trị của b, b mang giá trị của a. a=b,b=a
c5,6: tương tự câu 4
c7: kết quả là:a/b
c8: 1
c9: c
c10:
sai lệnh ' clscrs ' đúng là 'clrscr;
sau lệnh readln(canh) thiếu dấu ";"
chưa khai báo biến "dientich"
dòng writeln thứ 2 thiếu dấu " ' " ở trước dấu phẩy.
c11:
phần khai báo sai chỗ "a.b" đúng là "a,b"
sai lệnh clrscr;
thiếu ";" sau lệnh readln(b)
chưa khai báo biến tổng
câu lệnh in kết quả sai ( thiếu " ' ")
c12:
if a>b then { a lớn hơn b } else
if a<b then { a nhỏ hơn b } else
{ a bằng b }
c13: dễ nhưng hơi dài chỉ cần so sánh từng biến với tổng 2 biến còn lại là đươc
c14: bạn viết tương tự như c13 bổ sung thêm điều kiện
nếu có 2 trong 3 cạnh bằng nhau thì in ra là tam giác cân
c15:
max:=a;
if (max>b) and(max >c) then max:=a else
if b>c then max:=b else max:=c;
write(max)
c16: làm tương tự c4,5,6
c17: bx+x+0 ???
c18: làm tương tự c16
Lệnh 1: 8
Lệnh 2: FALSE
Lệnh 3: 3
Lệnh 4: ______3.00
Lệnh 5: ______3.33
Lệnh 6: TRUE
Lệnh 7: TRUE
Lệnh 8: TRUE