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
tớ gửi cho cậu cái này, Sắp tới năm học mới. Đây là những món quà cậu sẽ đc nhận. 1. Áo, quần 2.Tiền 3.Được nhiều người yêu quý. 4.May mắn cả đời 5.Luôn vui vẻ trong cuộc sống 6.Được crush thích thầm 7.Học giỏi 8.Trở nên xinh đẹp Phật sẽ ban cho cậu những điều này nếu bạn gửi tin nhắn này cho 25 người, sau 3 ngày cậu sẽ có đc những điều đó. Nếu cậu không gửi tin nhắn này cho 25 người thì cậu sẽ luôn gặp xui xẻo, học kì 2 sẽ là học sinh yếu và bạn bè xa lánh (lời nguyền sẽ bắt đầu từ khi đọc) (tui cũng bị ép) 1 đứa nhờ gửi bạn Sắp tới là tháng cô hồn r.Ai cũng biết tháng cô hồn rất xui.Vì vậy ai đọc đc cái này thì gửi đủ cho 30 người. Vì lúc trước có 1 cô gái đọc cái này mà k gửi. 2ngày sau cô ấy đi tắm và bị ma cắn cổ chết, mẹ cx chết. 2 vk ck kia đọc và gửi đủ cho 30 người thì đã trúng số (mik cũng bị ép thôi ạ😔) xl vì đã chọn phải bạn mik xl mik bị ép gửi mik cũng thương mẹ 𝘢𝘪 𝘵𝘩ương 𝘮ẹ 𝘵𝘩ì 𝘩ã𝘺 𝘨ử𝘪 𝘥òng 𝘵𝘩ư 𝘯à𝘺 𝘤𝘩𝘰 20 𝘯𝘨ười,𝘢𝘪 𝘮à 𝘹óa 𝘵𝘩ì 𝘮ẹ 𝘣ạn 𝘴ẽ 𝘤𝘩ết 𝘵𝘳𝘰𝘯𝘨 𝘷ò𝘯𝘨 3 n
yeah