Những câu hỏi liên quan
Huỳnh Thị Cẩm Nhi
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 4 2021 lúc 13:35

b) 

uses crt;

var i,n:integer;

t:real;

begin

clrscr;

write('Nhap n='); readln(n);

i:=1;

t:=0;

while i<=n do 

  begin

t:=t+1/(i*(i+3));

i:=i+1;

end;

writeln(t:4:2);

readln;

end.

Bình luận (0)
Chuu
Xem chi tiết
Minh Lệ
6 tháng 3 2023 lúc 23:26

Program HOC24;

uses crt;

var i,n: integer;

s: real;

begin

clrscr;

write('Nhap n: '); readln(n);

s:=0;

for i:=1 to n do s:=s+1/(i*(i+1));

write('S= ',s:6:2);

readln

end.

Bình luận (1)
Minh Lệ
7 tháng 3 2023 lúc 22:52

Program HOC24;

var i,n: integer;

S: real;

begin

write('Nhap N: '); readln(n);

i:=1; s:=0;

while i<=n do

begin

s:=s+i*(i+1);

i:=i+1;

end;

write('S=',S:5:2);

readln

end.

Bình luận (0)
Nguyễn Võ Phương Uyên
Xem chi tiết
Trương Khánh Linh
Xem chi tiết
Minh Lệ
16 tháng 3 2023 lúc 21:50

Tính tổng N số tự nhiên đầu tiên với N nhập từ bàn phím chứ bạn nhỉ?

Bình luận (1)
Phác Minh An
Xem chi tiết
daukhacgiabao
Xem chi tiết
Nguyễn Huỳnh Khôi Nguyên
Xem chi tiết
Nguyễn Lê Phước Thịnh
1 tháng 5 2021 lúc 19:39

uses crt;

var n,i,s:integer;

begin

clrscr;

write('Nhap n='); readln(n);

s:=0;

i:=1;

while i<=n do 

  begin

s:=s+i;

inc(i);

end;

writeln(s);

readln;

end.

Bình luận (0)
Nguyễn Huỳnh Khôi Nguyên
3 tháng 5 2021 lúc 11:37

ae nào giúp mình với ạ'

 

Bình luận (0)
Phác Minh An
Xem chi tiết
huyokkkkk
Xem chi tiết