Câu 1:
A. Sai vì điều kiện ở đây phải là phép so sánh
B. Sai vì sai điều kiện không được có dấu ;
C. Sai vì trước dấu ; kết thúc câu lệnh không có dấu )
câu lệnh bị lặp vô hạn lần
D. Thiếu câu lệnh ghép begin... end;
Chưa gán giá trị ban đầu cho biến sum
E. Đúng
Câu 2:
program ct;
uses crt;
var a,b,c:integer;
begin clrscr;
write('Nhap do dai hai canh ben: '); readln(a,b);
write('Nhap do dai canh huyen: '); readln(c);
if (a+b>c) and (a+c>b) and (b+c>a) then
begin
if c*c=a*a+b*b then write('Day la tam giac vuong')
else write('Day ko la tam giac vuong');
end;
else write('Day ko la do dai ba canh tam giac');
readln;
end.
Học tốt!