Câu 5: A
Câu 6: Bằng 15
Câu 7: Biến S bằng 10, Biến n bằng 4
Câu 8:
*Có hai cách giải:
- Cách 1: (Lệnh While)
program TramChuO;
uses crt;
Var i: integer;
BEGIN
clrscr;
i:= 1;
While i <= 100 do
Begin
Write('O');
i:= i + 1;
End;
END.
- Cách 2: (Lệnh For)
program TramChuO;
uses crt;
Var i: integer;
BEGIN
clrscr;
For i:= 1 to 100 do
Begin
Write('O');
End;
END.
*Chọn cách nào cx đc!
Câu 9:
Chương trình đúng:
program Baitap_1;
uses Crt;
Var a,b,s,cv: real;
Begin
Write('Nhập chiều dài ='); readln(a);
Write('Nhập chiều rộng ='); readln(b);
s:= a*b;
cv:= (a+b)*2;
Writeln('Diện tích hình chữ nhật là:', s);
Writeln('Chu vi hình chữ nhật là:', cv);
Readln;
End.
*Lưu ý 1:
- Nhập Write('Nhập chiều dài ='); readln(a); tương tự như Writeln('Nhập chiều dài ='); read(a);
- Tương tự với Write('Nhập chiều rộng ='); readln(b);
*Lưu ý 2:
Begin và End là từ khóa và Pascal ko phân biệt từ khóa hay biến là ghi chữ thường hay chữ hoa nên Begin, End mình giữ nguyên nhé.
*Lưu ý 3:
Trong câu 7, tên Program là TramChuO chứ không phải 100ChuO vì trong Pascal đặt khai báo tên chương trình không cho phép số đứng trước
