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;
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.
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.
uses crt;
begin clrscr;
writeln('(spr(5+2))/(3*3+1)=',(spr(5+2))/(3*3+1));
readln
end.
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.
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
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.
cho cái cốt thôi
s:=0;
for i:= 1 to n do
s:=s*(1/(1/(i*i));
hiêu2 quá