Lập trình pascal mn giúp mình vs a mình cảm ơn
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.
Những câu hỏi liên quan
30 tháng 4 2022
uses crt;
var a:array[1..200]of real;
i,n:integer;
tb:real;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
tb:=0;
for i:=1 to n do tb:=tb+a[i];
writeln(tb/n:4:2);
readln;
end.
30 tháng 4 2022
uses crt;
var a:array[1..100]of real;
i,n,dem:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
dem:=0;
for i:=1 to n do
if a[i]>=8 then inc(dem);
writeln(dem);
readln;
end.
KV
14 tháng 3 2023
Var a:array[1..100] of integer;
i,s:integer;
Begin
For i:=1 to 100 do
Begin
Write('Nhap phan tu thu ',i,' = ');readln(a[i]);
If a[i] mod 2 <> 0 then s:=s+a[i];
End;
Write('Tong la ',s);
Readln;
End.
13 tháng 6 2023
3: góc AMN=góic ACM
=>AM là tiếp tuyến của đường tròn ngoại tiếp ΔECM
=>góc AMB=90 độ
=>Tâm o1 của đường tròn ngoại tiếp ΔECM nằm trên BM
NO1 min khi NO1=d(N;BM)
=>NO1 vuông góc BM
Gọi O1 là chân đường vuông góc kẻ từ N xuống BM
=>O1 là tâm đường tròn ngoại tiếp ΔECM có bán kính là O1M
=>d(N;tâm đường tròn ngoại tiếp ΔECM) nhỏ nhất khi C là giao của (O1;O1M) với (O) với O1 ;là hình chiếu vuông góc của N trên BM
TT
1
24 tháng 2 2021
a) nAl= 0,2(mol)
PTHH: 4Al + 3 O2 -to-> 2 Al2O3
nO2= 3/4 . 0,2= 0,15(mol)
=>V(O2,đktc)=0,15.22,4=3,36(l)
Vkk(đktc)=5.V(O2,đktc)=3,36.5=16,8(l)
b) nAl=0,2(mol)
nO2=0,4(mol)
Ta có: 0,2/4 < 0,4/3
=> Al hết, O2 dư, tính theo nAl.
- Sau phản ứng có O2(dư) và Al2O3
nAl2O3= nAl/2= 0,2/2=0,1(mol)
nO2(dư)= 0,4- 0,2. 3/4=0,25(mol)
K
ai giúp mình vs mình đang cần gấp
0
5 tháng 7 2021
- Xét : \(x^2+8x-20\le0\)
\(\Rightarrow-10\le x\le2\)
Mà \(x>0\)
\(\Rightarrow0< x\le2\)
- Xét \(x^2-2\left(m+3\right)x+m^2-2m< 0\)
Có : \(\Delta^,=b^{,2}-ac=\left(m+3\right)^2-\left(m^2-2m\right)\)
\(=m^2+6m+9-m^2+2m=8m+9\)
- Để bất phương trình có nghiệm
\(\Leftrightarrow\Delta>0\)
\(\Leftrightarrow m>-\dfrac{9}{8}\)
=> Bất phương trình có nghiệm \(S=\left(x_1;x_2\right)\)
Mà \(0< x\le2\)
\(\Rightarrow0< x_1< x_2\le2\)
\(TH1:x=2\)
\(\Rightarrow4-4\left(m+3\right)+m^2-2m< 0\)
\(\Rightarrow3-\sqrt{17}< m< 3+\sqrt{17}\)
\(TH2:0< x_1< x_2< 2\)
\(\Rightarrow\left\{{}\begin{matrix}m^2-2m>0\\m^2-6m-8>0\\0< 2\left(m+3\right)< 2\end{matrix}\right.\)
\(\Rightarrow\left\{{}\begin{matrix}\left[{}\begin{matrix}m< 0\\m>2\end{matrix}\right.\\\left[{}\begin{matrix}m>3+\sqrt{17}\\m< 3-\sqrt{17}\end{matrix}\right.\\-3< m< -2\end{matrix}\right.\)
Vậy \(3-\sqrt{7}< m< 3+\sqrt{7}\)
6 tháng 7 2021
Ban ơi :(( ngay chỗ dấu ngoặc nhọn đầu tiên của TH2 có công thức j k bạn?
a: if (a=b) or (b=c) or (a=c) then writeln('Tam giac can');
b: if (a=c) and (b=c) then writeln('Tam giac deu');
c: if (x mod 2<>0) and (x mod 3=0) then writeln('x la so nguyen le va chia het cho 3');