Câu 2 : Cho vòng lặp:
S:=0;
For i:=1 to 20 do
S:=s + i/2;
Hãy biến đổi vòng lặp trên 1 thành vòng lặp while…do
mình đang cần gấp ạ
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Câu 1: var a:array[1..100]of integer;
Câu 2: for i:=1 to 20 do write(i:4);
Câu lệnh lặp sẽ được thực hiện khi giá trị của biến S là lớn hơn 0. Trong quá trình lặp, giá trị của biến i sẽ được tăng lên mỗi lần lặp cho đến khi i đạt đến giá trị n. Trong cùng mỗi lần lặp, giá trị của biến J sẽ được cập nhật bằng cách cộng thêm i^2, sau đó biến S sẽ giảm đi giá trị của i.
Khi vòng lặp kết thúc, chương trình sẽ in ra màn hình tổng S, tức là giá trị cuối cùng của biến J.
Với câu lệnh lặp như sau:
J:=0;
i:=0;
While S > 0 Do
i:=i+1;
J:=J+i^2;
S:=S-i;
End;
Write(J);
Ví dụ, nếu ta gán S=5, thì chương trình sẽ tính tổng của các số bình phương từ 1^2 đến 5^2 và in ra giá trị đó, tức là 1^2 + 2^2 + 3^2 + 4^2 + 5^2 = 55.
Câu 1 : 1 thằng què
Câu 2 : dưới đất
Câu 3 : đất xấu chim next
Câu 4 : không khí
Nhiều thế nhỉ. câu 1 mình nghĩ là 180
Câu 2 thì mình bó tay. Còn câu 3 thì có 1 đường
Chuyển thành while..do
s:=0; i:=1;
while i<=n do
begin
s:=s+i/2;
i:=i+1;
end;