DM
2
K
Khách
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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
20 tháng 1 2018
uses crt;
var i,n:integer; S:real;
Begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do S:=S+1/(i*(i+2));
writeln('Tong la: ',S:3:1);
readln
End.
BK
18 tháng 10 2016
câu 1:
var x:string
y:integer
Câu 2:
var a,b:integer
begin
write('hay nhap gia tri cua a')
read(a)
wrietln('hãy nhập giá trị b')
read(b)
t:=a+b
writeln('tông cua a va b la',t)
11 tháng 10 2017
**********************************************************
PROGRAM BT_Giai_thua;
USES crt;
VAR i,n:integer; s1:string;
Function Giaithua(x:integer):longint;
Var s,i:longint;
Begin
s:=1;
for i:=1 to x do s:=s*i;
Giaithua:=s;
End;
Function Tong(x:integer):real;
Var j:integer; s:real;
Begin
s:=0;
for j:=1 to x do s:=s+1/Giaithua(j);
Tong:=s;
End;
BEGIN
clrscr;
write('Nhap n:'); readln(n);
writeln(n,'!=', Giaithua(n));
writeln('Tong 1/1!+1/2!+...+1/',n,'! la:',Tong(n):0:2);
str(Giaithua(n),s1);
write('Sau khi xoa duoc:');
i:=length(s1)+1;
repeat
if s1[i-1]='0' then delete(s1,i-1,1)
else break;
i:=i-1;
until i=1 ;
write(s1);
readln;
END.
LD
19 tháng 4 2019
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.
TL
2
20 tháng 1 2020
uses crt;
var s:real;
i:integer;
begin
clrscr;
s:=0;
for i:=1 to 100 do
s:=s+1/i;
writeln('tong la: ',s:4:2);
readln;
end.
10 tháng 2 2020
uses crt;
var s:real;
i:integer;
begin
clrscr;
s:=0;
for i:=1 to 100 do
s:=s+1/i;
writeln('tong la: ',s:4:2);
readln;
end.
13 tháng 11 2019
câu 2 bạn xem lại đề nhé
câu 1:
bước 1: nhập n
bước 2: t:=0; i:=2;
bước 3: t:=t+1/i; i:=i+1;
bước 4: nếu i<=n thì quay lại bước 3
bước 5: xuất t
bước 6: kết thúc
bài hay
"Sigma boy" là một thuật ngữ trên mạng xã hội, thường được dùng để mô tả một kiểu hình mẫu nam giới nhất định. Tuy nhiên, định nghĩa và ý nghĩa của nó có thể thay đổi tùy thuộc vào ngữ cảnh và người sử dụng.
Dưới đây là một số cách hiểu phổ biến về "sigma boy":
Điều quan trọng cần lưu ý là khái niệm "sigma boy" không được hỗ trợ bởi bất kỳ nghiên cứu khoa học chính thức nào. Nó chủ yếu là một hiện tượng văn hóa trên mạng xã hội.