Câu2: a) j = 12
k=15
b) Có 5 vòng lặp While do
S = 5;
Câu6 các lỗi trong chương trình:
Lỗi 1: Tên chương tình có dấu cách (HC_N) - Dòng 1
Lỗi 2: Khai báo biến không có dấu '=' ( a,b,s,cv:real) - DÒNG 3
Lỗi 3: Để in ra màn hình dùng lệnh write (Write('Nhap chiều dài =')-Dòng 5
Lỗi 4: Chưa nhận giá trị b, để thêm giá trị b (Readln(b))-Dòng6
Lỗi 5 : Phép nhân là '*' không phải 'x'- dòng 7
Lỗi 6: Phép gán giá trị cho biến cv là ':=' không phải ':' -Dòng 8
Lỗi 7 : Phép chia là '/' KHÔNG PHẢI ':' -dòng 8
Lỗi 8: Để in diện tích hình chữ nhật ra màn hình (Writeln('Dien tich hinh chu nhat la: ',s))
Lỗi 9:Để in diệnChu vi chữ nhật ra màn hình (Writeln('Chu vi hinh chu nhat la: ',cv))
Câu 7:
S = 10
N = 4
Câu 8:
Program InChu
Uses crt;
Var i:integer;
Begin
clrscr;
i:=1
While i <= 5 do
begin
Writeln('A');
i:=i +1;
end;
Readln;
End.
