Program lap; Var i: integer; Begin For i:=1 to 5 do write('a'); Readln End.
Program lap;
Var i: integer;
Begin
For i:=1 to 5 do write('A');
Readln
End.
aaaaa
Viết câu lệnh lặp hiển thị lên màn hình 10 chữ A bằng cách sử dụng lệnh lặp while.
Em hãy viết câu lệch lặp hiển thị lên màn hình 5 chữ cái A
Em hãy cho biết điều kiện câu lệnh lặp thực hiện và kết quả in ra màn hình tổng S của vòng lặp : J:=0;i:=0; While S
Viết đoạn chương trình sử dụng câu lệnh lặp để thực hiện a)In ra màn hình 50 dấu* b)Tính tổng 1+3+5+7+...+99
Hãy cho biết kết quả của đoạn chương trình dưới đây:
a := 10;
While a ≥ 10 do write(A);
A. Trên màn hình xuất hiện một chữ a
B. Trên màn hình xuất hiện 10 chữ a
C. Trên màn hình xuất hiện một số 10
D. Chương trình bị lặp vô tận
Sử dụng câu lệnh lặp For...do để viết chương trình nhập tên và hiển thị ra màn hình lời chào cho 20 bạn trong lớp em.
Câu lệnh lặp For i:=1 to 5 do Writeln(‘Day la lan lap thu ‘,i); sẽ in ra màn hình mấy dòng chữ?
A. 1
B. 3
C. 5
D. 7
Câu lệnh lặp For i:= 2 to 5 do Writeln(‘Day la lan lap thu ‘,i); sẽ in ra màn hình mấy dòng chữ?
A. 1
B. 3
C. 4
D. 5
Câu lệnh lặp For i:=1 to 5 do Writeln(‘Day la lan lap thu ‘,i); sẽ in ra màn hình mấy dòng chữ?
A. 1
B. 3
C. 5
D. 7
