Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Thuật toán:
Bước 1: Nhập n
Bước 2: i←1; a←0;
Bước 3: a←a+1/(i*(i+2));
Bước 4: i←i+1;
Bước 5: Nếu i<=n thì quay lại bước 3
Bước 6: xuất a
Bước 7: Kết thúc
Viết chương trình:
uses crt;
var a:real;
i,n:longint;
begin
clrscr;
write('Nhap n='); readln(n);
a:=0;
for i:=1 to n do
a:=a+1/(i*(i+2));
writeln(a:4:2);
readln;
end.
program bai1;
var s,n,i:longint;
begin
write('N= ');
readln(n);
s:=0;
for i:=1 to n do s:=s+1/i;
write('S= ',s);
readln
end.
Var i , n : integer ;
S : real;
Begin
write ( 'n =') ; read (n) ;
S:= 0;
For i:=1 to n do S : = S + 1/i;
Writeln (S);
Readln;
End.
program Bai_1;
uses crt;
var n,i:integer; s:real;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do s:=s+1/(2*i);
write('S=',s);
readln;
end.
program Bai_2;
uses crt;
var n,i:integer; gt:longint; s:real;
begin
clrscr;
write('n='); readln(n);
gt:=1;
for i:=1 to n do
begin
gt:=gt*i;
s:=s+1/gt;
end;
write('S=',s);
readln;
end.
- nếu như khai báo biến S:real thì nên thêm độ rộng chữ số vào kq
progrỉnam bai1;
var n,i:longint;
s:real;
begin
write('N= ');readln(n);
s:=0;
for i:=1 to n do
s:=s+1/i*(i+1);
writeln('Tong la ',s);
readln
end.
1) var n,i:integer;
s:real;
begin
write('n=');readln(n);
s:=0;
for i:=1 to n do s:=s+(1/(i*(i+1)));
writeln(' Tong la: ',s);
readln;
end.
2) var n,i:integer;
s:real;
begin
write('n=');readln(n);
s:=0;
for i:=1 to n do s:=s+(1/((2*i)-1));
writeln(' Tong la: ',);
readln;
end.
Bạn tự khai báo nhé!;
Ảnh nhỏ thì nhấn mở hình ảnh trong tab mới nha
4...
begin
repeat
write('N= '):
readln(n);
until n>0;
s:=0;
for i:=1 to n do
s:=s+1/n;
write('s= ',s);
readln
end.
program tong;
use crt;
var i,n:integer;
s:real
Begin
write(' nhap n'); readln(n);
s:=0;
for i:= 1 to n do
s:=s+\(\dfrac{1}{i}\)
write(' tong la',s);
readln;
End.
program Tinh_Tong;
uses crt;
var a,S,n: Real;
begin clrscr;
writeln('Nhap so n=');Readln(n);
S:=0;
For a:= 1 to n do S:=S+1/a;
writeln('Tong la S=',S);
readln
end.
Program HOC24;
var a: real;
i,n: integer;
begin
write('Nhap n='); readln(n);
a:=0;
for i:=1 to n do a:=a+1/i;
write('A= ',a);
readln
end.