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.
var i,n:integer;
s:real;
begin
s:=1;
write('ban hay nhap vao mot so nguyen: '); readln(n);
for i:= 1 to n do
s:= s + (1/(i*(i+1));
writeln(' tong s = ',s:0:2);
readln
end.
var i,n:integer;
s:real;
begin
s:=1;
write('ban hay nhap vao mot so nguyen: '); readln(n);
for i:= 1 to n do
s:= s + (1/(i*(i+1));
writeln(' tong s = ',s:0:2);
readln
end.
var i,n:integer;
tich:real;
begin
write('nhap n='); readln(n);
tich:=1;
for i:=1 to n do tich:=tich*(1+1/(i*i));
write('ket qua la:',tich);
readln
end.
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.
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 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
program 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+2));
writeln('Tong la ',s);
readln
end.
của Trương Quang Dũng thiếu uses crt;
ko khai báo s.
có 2 dấu ngoặc liên tiếp nên chương trình sẽ bị lỗi