lập trình tính tổng dùng lệnh lặp While...Do và for...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)
2 câu trả lời
program oken;
uses crt;
var n,i:longint;
a:real
begin
clrscr;
write('nhap so N: '); readln(n);
a:=+1;
for i:=1 to n do
a:=a+(1/i);
writeln('Tong phan so A=',a:0:3);
readln;
end.
Program Hotboy;
Uses crt;
var i,n : longint;
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
