Giúp mình vs mai mình kiểm tra học kì rồi Câu 1: Trong các câu lệnh Passcal sau và sai ở đâu? 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 la lap trinh vien'); d) i := while i <10 do Sum := Sun + i ; i:=1+1 e) i := 1; x := 5 while i < x do := i + 1 ; write ( ' gia tri cua i là',i); Câu 2: Viết chương trình xét xem tam giác có là tam giác vuông hay không khi biết 3 cạnh của tam giác?

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!