Cho thuật toán :
Bước 1 : Nhập số N nguyên dương
Bước 2 : S <- 0 ; i <- 1
Bước 3 > Nếu i > N thid đưa ra giá trị Tổng rồi kết thúc
Bước 4 : S <- S + 1/i
Bước 5 i <- i+1
Bước 6 : quay lại bước 3
Help Me ! T-T
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.
Những câu hỏi liên quan
1 tháng 1 2022
a: Thuật toán thực hiện công việc tính tổng các số dương trong dãy n số nguyên
KV
5 tháng 5 2023
Var n,s:integer;
Begin
n:=0;
s:=0;
While s<=1000 do
Begin
n:=n+1;
s:=s+n;
End;
Write('Tong la ',s);
Readln
End.
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
write('n='); readln(n);
s:=0; i:=1;
while i<=n do
begin
s:=s+1/i;
inc(i);
end;
writeln('tong la: ',s:4:2);
readln;
end.