----- Nội dung dịch tự động từ ảnh -----
End.
Câu 2 Em hãy viết câu lệnh lặp hiển thị lên màn hình 5 chữ A.
Câu 3
a. Viết chương trình s= 1+3+5+ ... + n (bằng while..do)
b. Viết chương trình s= 2 +4+ 6 +
Câu 4: Cho x :=1; Hãy tính giá trị của x khi thực hiện các lệnh
+n (bằng while..do)
•..
a. If (1+2=3) then x:=x+1
b. If (1+1=3) or (2+2=3) then x:=x+2
c. If (2+3=5) and (3+4=7) then x:=x*3
e. If (45 mod 3=0) then x:=x+1;
Cầu 5: Hãy chỉ ra lỗi sai của chương trình sau, sửa lại thành chương trình hoàn chỉnh
Uses Rct;
Var i, n: interger;
Tong : longint
Begin
Clrscr;
t />For i=1 to 10 do
Begin
If( i mod 4) = 0 then
t />End.
=
Writeln(Tong so chia het cho 4:,tong);
Readln3B
End;