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.
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.
uses crt;
begin clrscr;
writeln('(spr(5+2))/(3*3+1)=',(spr(5+2))/(3*3+1));
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.
a) (1/(b+2))*(a*a+c)=5
b) (k*k)+((k+1)*(k+1)) < > (k+2)*(k+2)
c) 8*x-7>1
d) (b*b)-(4*a*c) >=0
e) (1/n)*(1/(n+i))*(1/(n+2)) <0,01
f) (a-3)*(a+5)=0
g) ((a+c)*h)/2 < > 1
h) 2*x+3 <= 25*y;
k) x >= (m+5)/(2*a);
l)3,14*(R*R) > a*a
cho cái cốt thôi
s:=0;
for i:= 1 to n do
s:=s*(1/(1/(i*i));
hiêu2 quá
read(n)
h:=0
for a:= 1 to n do
begin
for u:=1 to a do
begin
s:=1;
s:=s*u;
end;
h:=h+s;
end;
write('vay tong tu 1 giao thu toi n giao thua la: ');
..........n giao thua la: ',h);
var n,u,a,h,s:integer;
begin
write('nhap n = ');
read(n);
...........
...............
end.
quên ";" ở
h:=0
Thanks. Thank a lot. Many thanks. Thank you so much. Thank you very much. Thank you for your answering......
read(n);
với chuyển dòng ||| s:=1 ||| lên , cho nó vào giữa 2 dòng
begin
for u:=1 to a do
if (n mod 1=0) and (n mod=0) then write('vay n la so.....')
else write('n 0 la .........');
readln
end.
đúng không ?
No no no. Số nào chia 1 mà chả dư 0
uk
for i:= 1 to n do
if n mod i=0 then write('n khong la .......');
write('n la so .......');
vậy cái này ?
then không dùng ; !!!!!!!!
quên mất
I don't understand.......
nếu n chia i (i tăng từ 1=> n) =0
thì không là số nguyên tố
à, ý tưởng đúng rồi đó, nhưng viết như vậy thì sẽ hiện:
n (ko) la........n (ko) la........n (ko) la.......(nhiều lần như thế này)
u:=0;
for i:=2 to n-1 do
if u=0 then
if n mod i=0 then
begin
u:=u+1;
write(n);
write(' khong la so ng....... to');
end;
write(n);
write (' la so n... to');
vậy cái này ?
1: yêu , thích tôi không nghĩ vậy , tôi ghét nó từ lớp 9 , tôi không công nhận cảm xúc tôi cho bạn là yêu hay thích tôi không nghĩ vậy ., tôi nghĩ ..........(chút nói sau)======================2:cậu biết hay chưa tôi sống và nhận ..........(cậu tự suy ra từ câu sau)từ bố mẹ , bạn bè , nên tôi gần như trầm cảm ghét mọi người ,mọi thứ , ghét thì đó nhưng tôi luôn muốn họ quan tâm , họ quý tôi , họ coi tôi tồn tại (cái này thì hơi quá thật thì tôi tồn tại nhưng những việc họ làm , họ trao đổi , với nhau dường như không liên quan , không nghĩ tới tôi [ít nhất cũng giao cho tôi một công việc nào đó ?, nghĩ tới tôi , cảm xúc của tôi chứ?] ),và cậu uk có quan tâm , nguồn X duy nhất (nó là sự thật ), và tôi luôn muốn khai thác từ đó . nên tôi gửi "nó " , để có thể nhận được X qua các câu nói (cậu sẻ chú ý đến nội dung of it , cho thấy cậu có quan tâm đến tôi ), và thật sự tôi nhận được nó , cậu chú ý đến "nó " ,------------------------------ 3: phải thừa nhận rằng trong tôi có ý nghĩ là cậu giả tạo ,nó tạo nên từ sự nghi ngờ về phong và kuru....(học 24) = cậu ,dối tar1 hình như có trong nội dung của nó ----------------------------4 : ráp ! cậu quá chút ý đến nó doạn hát không mang những thứ cậu chú ý , cậu quá tậm trung vào đoạn ráp ! , nó có hai mặt được thể hiện ở hai cách khác nhau ----------------------5: thật sự đoạn ráp là ý nghĩ của tôi về con gái từ năm lớp 9 , và tôi nghe nó từ lâu rồi , và ý nghĩ về con gái đó mờ dần khi tôi biết ngọc , cậu , linh , huyền .(olm) , chứ không phải cậu ban cho tôi suy nghĩ đó hiểu chứ ??! (mong) ,và một phần vấn đề là cậu , cậu quan tâm nó làm gì ? cậu ghép nó cho tôi với cậu chi ? , nó đâu phải của tôi tạo ra ? , tôi nói nó hợp suy nghĩ tôi sao ? cũng không thể trách cậu được một chút nào đó trong tôi muốn cậu quan tâm tới nội dung , khao khác X chăn , tôi nói rồi tôi nói gì đó ........ lần trước có giải thích , đại loại là không phải suy nghĩ đó , cậu vẫn khưng khưng cho tôi , cậu muốn ghét tôi ? ,tóm lại một phần tôi có nó (cậu giả tạo ) , một phần tôi cần X , và tôi không thoát được rắc rối này sao ? làm ơn đừng đi đâu tôi không muốn mất liên kết với cậu , cậu bận lắm ?, một tháng cậu on một lần cũng được , đâu cần phải bỏ luôn nó ? ! (hoc 24), làm ơn tôi không muốn mất .... đừng có nghĩ đây là tình yêu , đừng gán những khái niệm , cảm xúc của những con người ngoài kia cho tôi , họ tôi thấy cái đẹp của họ uk cái đẹp đó có sự góp xứng của cái xấu , chính những cái xấu đã tạo nên những cái đẹp đó vì chúng cùng được tạo nên từ 1 bộ não
xong rồi đó đọc kỉ vào và cho tôi câu trả lời "cậu lập trình lại kì ức hình ảnh về tôi chưa , cậu "
h thằng ảo tưởng
" (tôi là người xấu ko bao h làm việc tốt) Đừng có đặt lòng tin vào tôi."cậu làm mọi thứ trở nên tốt hơn , with me
:))