lập trình tính tổng dùng lệnh lặp While...Do trong đó có n là số tự nhiên được nhập từ bàn phím A=1+1/2+1/3+...+1/n(n thuộc Z) giúp mik đúng nha m.n
2 câu trả lời
Program FNG;
Uses crt;
Var s: extended;
n,i: qword;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
s:=0; i:=1;
While i<=n do
Begin
s:=s+1/i;
inc(i);
End;
Write(s:0:2);
Readln
End.
program oken;
uses crt;
var n,i:longint;
a: real;
begin
clrscr;
write('nhap so N: '); readln(n);
a:=1; i:=0;
while i<=n do
begin
i:=i+1;
a:=a+(1/i);
end;
writeln('Tong A=',a:0:3);
readln;
end.
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
