Bài 4: Bài toán và thuật toán

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
quachkhaai

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

Nguyễn Lê Phước Thịnh
13 tháng 12 2019 lúc 11:49

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.

Khách vãng lai đã xóa

Các câu hỏi tương tự
phong
Xem chi tiết
Mon Chaton
Xem chi tiết
Nguyễn Bảo Hoàng
Xem chi tiết
Bạch Tô
Xem chi tiết
nguyễn thị mai giang
Xem chi tiết
THÙY TRANG
Xem chi tiết
Phạm Kiều Anh
Xem chi tiết
Giang Vo
Xem chi tiết
Phạm Ngọc Thạch
Xem chi tiết