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
uses crt;
var : i, n : integer;
a : real;
begin clrscr;
a:=0;
Writeln('Nhap so tu nhien n:'); readln(n);
While i <= n do
begin
a := a+1/i;
i:=i+1;
end;
writeln('Tong A =', a);
readln
end.
Program Hotboy;
Uses crt;
Var i,n : integer;
s:real;
begin
Clrscr;
s:=0;
Write('nhap so n'); Readln(n);
While i<= n do
begin
S:=S+1/i; inc(i);
end;
Write('tong day do la:',S);
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
