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.
b)
program hotrotinhoc;
var s: real;
i,n: byte;
function t(x: byte): longint;
var j: byte;
t1: longint;
begin
t1:=1;
for j:=1 to x do
t1:=t1*j;
t1:=t;
end;
begin
readln(n);
s:=0;
for i:=1 to n do
s:=s+1/t(i);
write(s:1:2);
readln
end.
c) Đề em ghi sai rồi thế này với đúng :
\(T=1+\frac{2}{2^2}+\frac{3}{3^2}+\frac{4}{4^2}+...+\frac{n}{n^2}\)
program hotrotinhoc;
var t: real;
n,i: byte;
begin
readln(n);
t:=0;
for i:=1 to n do
t:=t+i/(i*i);
write(t:1:2);
readln
end.
1 : có trong sgk
3:
a) b1: T←0;
B2: 1 → n ;
B3 : T:=T+1/(i*i) ;
B4: Kết thúc
var a:array[1..32000] of integer;
i,n,j,tam:integer;
begin
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i] > a[j] then
begin
tam:=a[i]; a[i]:=a[j]; a[j]:=tam;
end;
writeln('ket qua sap xep la:');
for i:=1 to n do write(A[i]:5);
readln
end.
Bước 1: nhập n, \(A\leftarrow0\), \(i\leftarrow1\);
Bước 2: \(A\leftarrow A+\frac{1}{i\left(i+2\right)}\)
Bước 3: \(i\leftarrow i+1\)
Bước 4: Nếu i<=n thì quay về bước 2.
Bước 5: Ghi kết quả A ra màn hình và kết thúc
program dgv;
uses crt;
var x,y,z,n,i: integer;
p,S,A: real;
begin
clrscr;
writeln('Nhap x: '); read(x);
writeln('Nhap y: '); read(y);
writeln('Nhap z: '); read(z);
writeln('Nhap n: '); read(n);
if x mod 2 = 0 then write (x,' la so chan') else writeln(x,'la so le');
if y mod 2 = 0 then write (y,' la so chan') else writeln(y,'la so le');
if z mod 2 = 0 then write (z,' la so chan') else writeln(z,'la so le');
if n mod 2 = 0 then write (n,' la so chan') else writeln(n,'la so le');
if n mod 3 <> 1 then writeln('Tong khong co quy luat') else
begin
S:=0;
for i:= 0 to (n-1)/3 do
S:= S+(3i+1);
writeln('S = ',S);
A:=0;
p:=1;
for i:=1 to n do
begin
p:= p*(x/(x+y));
A:=A+p;
end;
writeln('A = ',A);
readln
end.
Bước 1:Nhập n.Gán i=1,A:=0;
Bước 2:A=1
i(i+2)
Bước 3:i:=i+1
Bước 4:In ra A
Bước 5:Kết thúc vòng lặp.
Bài Làm:
Bước 1:Nhập n.Gán i=1,A:=0;
Bước 2:A=1 và i(i+2)
Bước 3:i:=i+1
Bước 4:In ra A
Bước 5:Kết thúc vòng lặp.
uses crt;
var s:real;
n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+1/i;
i:=i+2;
end;
writeln('S=',s:4:2);
readln;
end.
uses crt;
var n,i:integer;
a:real;
begin
clrscr;
repeat
write('n='); readln(n);
until n>0;
a:=0;
i:=1;
while i<=n do
begin
a:=a+1/i;
inc(i);
end;
writeln('A=',a:4:2);
readln;
end.
Đề là 1/n*(n+2) mà sao bạn là để 1/(i+(i+2))
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=1;
for i:=1 to n do
s:=s+1/(i+(i+2));
writeln('Ket qua la: ',s:4:2);
readln;
end.