K
Khách

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.

19 tháng 3 2023

var s, i: real;
begin
    s := 0;
    for i := 1 to 50 do
        s := s + 1/i;
    writeln('Tong s = ', s:0:2);
end.

 

19 tháng 3 2023

for i:= 1 to 50 do S = S + 1/i;

20 tháng 3 2023

Var i:integer;

s:real;

Begin

For i:=1 to 50 do

s:=s + 1/i;

Write('Tong la ',s:10:2);

Readln;

End.

Câu 1: var a:array[1..100]of integer;

Câu 2: for i:=1 to 20 do write(i:4);

16 tháng 4 2023

+)Vòng lặp thứ nhất: lặp khi i=1, cộng giá trị hiện tại của S với i, ta có S = 0 + 1 = 1.

+)Vòng lặp thứ hai: lặp khi i=2, cộng giá trị hiện tại của S với i, ta có S = 1 + 2 = 3.

+)Vòng lặp thứ ba: lặp khi i=3, cộng giá trị hiện tại của S với i, ta có S = 3 + 3 = 6.

+)Vòng lặp thứ tư: lặp khi i=4, cộng giá trị hiện tại của S với i, ta có S = 6 + 4 = 10.

+)Vòng lặp thứ năm: lặp khi i=5, cộng giá trị hiện tại của S với i, ta có S = 10 + 5 = 15.

Sau khi kết thúc vòng lặp, giá trị hiện tại của i sẽ là 6 và giá trị hiện tại của S sẽ là 15.

16 tháng 4 2023

C.ơn

 

13 tháng 3 2023

Chuyển thành while..do

s:=0; i:=1;

while i<=n do

begin

s:=s+i/2;

i:=i+1;

end;