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 1 : A.while...do
Câu 2 : Var a: integer;
Câu 3 : *Câu này là A. Var a: array[1..100] of inrteger mới đúng nha bạn chứ bạn ghi "integer" là sai thành ra không có cái nào đúng đấy*
Câu 4 : C.Kiểu dữ liệu có thể là integer hoặc real *Hình như cái này thiếu ý D. ???*
Câu 5 : A.Khi điều kiện cho trước được thỏa mãn *Câu này bạn đánh máy sai kìa hai ý D mà còn lên xuống dòng tùm lum*
Câu 6 : D.6 lần
Câu 7 : *Bạn đánh máy sai câu này nên mình ko biết đáp án*
Câu 8 : B.5
Câu 9 : *Trùng câu 4*
Câu 10 : B.While < điều kiện > do < câu lệnh >;

Bài 1:
a) Câu lệnh While i:=1 do sai.
Sai ở chỗ i:=1(vì có dấu gán)
b) Câu lệnh While a<=b; do sai
Sai ở chỗ có dấu chấm phẩy trước chữ do
Câu lệnh write('b khong nho hon a); sai
Sai ở chỗ vì thiếu dấu ' sau chữ a
c) Câu lệnh While 1=1 do sai
Vì nếu như vậy đây sẽ là vòng lặp vô hạn(vì 1 luôn bằng 1)
Câu lệnh write('Toi lap trinh gioi); sai
Sai ở chỗ thiếu dấu ' sau chữ gioi
d) Câu lệnh sum:=sum+1; i:=i+1; sai
Vì nguyên tắc là sau lệnh While(hoặc lệnh For) thì nếu làm nhiều câu lệnh thì phải bao bọc trong Begin End
Bài 2:
uses crt;
var a,b:real;
begin
clrscr;
repeat
write('a='); readln(a);
if a<=0 then writeln('vui long nhap lai a');
until a>0;
repeat
write('b='); readln(b);
if b<=0 then writeln('vui long nhap lai b');
until b=0;
writeln('dien tich hinh chu nhat la: ',a*b:4:2);
readln;
end.