Bài 10: Cấu trúc lặp
Các câu hỏi tương tự
Cho biết kết quả chương trình sau và giải thích
program vidu;
uses crt;
var i:integer;
begin
clrscr;
i:=15;
while i>1 do
begin
If i mod 2 =0 then i:=i div 2 else i:=i*3+1;
Write(i:5);
End;
readln;
end.
Cho đoạn chương trình S:=0 ; n:=1; While.......do Begin S:= S+n ; n:=n+1 ; End ; Tính tổng S=1+2+3....+100 , điều kiện nào sau đây cần điền vào chỗ 3 chấm giữa câu lệnh while ...do ? A. n>=100 B n> 100 C n<100 D n<=100
Giúp em
chuyển đoạn lệnh sau sang while-do và tìm kết quả của S và T?
T:=1 ; S:=0;
For i:=1 to 5 do
begin
S:=S+5;
T:=T*2;
End;
Chương trình sau thực hiện công việc gì ?kết quả vủa trương trình đó?
Var S,i : integer
Begin
A:=0
For i:=3 to 10 đó
S:=S*i;
Write('S=',S:3);
End.
Viết chương trình tổng S=1+2+...+n cho đến khi S > 500 đếm số lần lặp
1Viết chương trình nhập vào số nguyên dương N. Tính tổng các số là bội 3 và 5. In kết quả ra màn hình. 2. Viết chương trình tính tổng S=1+13+15+1N+...+ cho đến khi 1N
Viết chương trình :
Nhập vào giá trị n (n>2) . Tính tổng các giá trị chẵn trong phạm vi từ 2 đến n
Sử dụng câu lệnh while-do
Viết chương trình tính tổng A/ S= 1+1+1+1+1 B/ S = 1+2+3+4+5
Viết chương trình tính các tổng sau: a) S=1+2+3+4+...+n b) S=1+3+5+...+n-1 c) S=2+4+6+...2n