Một chữ số có lỗ khi các nét của nó được khép kín. Các số 0, 4, 6, 9 có 1 lỗ, số 8 có 2 lỗ, các số khác không có lỗ.
Làm trên Pascal.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.
![](https://rs.olm.vn/images/avt/0.png?1311)
Đáp án C
Gọi khoảng cách các lỗ : 0,1,2,3,4,5,6 đến lỗ thổi lần lượt là :
Hai lỗ cách nhau một cung và nửa cung ( tính từ lỗ định âm ) thì có tỉ số chiều dài đến lỗ thổi tương ứng là :
Suy ra ta có :
![](https://rs.olm.vn/images/avt/0.png?1311)
Đáp án D
+ Với L i là chiều dài từ lỗ thổi đến lỗ thứ i.
→ Lỗ thứ nhất cách lỗ định âm một cung → L 1 L 0 = 8 9
→ Lỗ thứ nhất và lỗ thứ hai cách nhau một cung → L 2 L 1 = 8 9
→ Lỗ thứ ba cách lỗ thứ hai nửa cung → L 3 L 2 = 15 16
→ Lỗ thứ tư cách lỗ thứ ba một cung → L 4 L 3 = 8 9
→ Lỗ thứ năm cách lỗ thứ tư một cung L 5 L 4 = 8 9
+ Từ các tỉ số trên ta có:
Mặc khác
![](https://rs.olm.vn/images/avt/0.png?1311)
Đáp án D
+ Với L i là chiều dài từ lỗ thổi đến lỗ thứ i.
Lỗ thứ nhất cách lỗ định âm một cung 8/9
Lỗ thứ nhất và lỗ thứ hai cách nhau một cung 8/9
Lỗ thứ ba cách lỗ thứ hai nửa cung 15/16
Lỗ thứ tư cách lỗ thứ ba một cung 8/9
Lỗ thứ năm cách lỗ thứ tư một cung 8/9
+ Từ các tỉ số trên ta có:
Mặc khác 1280/218* 440= 751,8 Hz
![](https://rs.olm.vn/images/avt/0.png?1311)
const
fi='lhcs.inp';
fo='lhcs.out';
a:array[0..9] of byte=(1,0,0,0,1,0,1,0,2,1);
var
f:text;
t,n:integer;
procedure inp;
begin
assign(F,fi);
reset(F);
read(f,n);
close(F);
end;
procedure out;
begin
assign(f,fo);
rewrite(F);
t:=0;
while n<>0 do
begin
t:= t+a[n mod 10];
n:= n div 10
end;
write(f,t);
close(F);
end;
BEGIN
INP;
OUT;
END.
const
fi='lohongcs.inp';
fo='lohongcs.out';
var
f:text;
i,s:integer;
n:longint;
a:array[0..9] of byte;
begin
assign(f,fi);
reset(f);
read(f,n);
for i:= 1 to n do
read(f,a[i]);
a[8]:=2;
a[0]:=1; a[4]:=1; a[6]:=1; a[9]:=1;
a[1]:=0; a[2]:=0; a[3]:=0; a[5]:=0; a[7]:=0;
close(F);
assign(f,fo);
rewrite(F);
s:=0;
repeat
i:=n mod 10;
s:=s+a[i];
n :=n div 10 ;
until n=0;
write(f,s);
close(F);
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
Gọi số sản phẩm tổ A,B,C làm được trong 1 giờ lần lượt là A,B,C ( sản phẩm) (A,B,C > 0)
Theo đề bài cả 3 A,B,C làm trong 1 giờ được 60 sản phẩm ta có :
\( \Rightarrow \) A + B + C = 60
Mà 3 tổ A,B,C làm tỉ lệ với các số 3;4;5 nên ta có tỉ lệ thức : \(\dfrac{A}{3} = \dfrac{B}{4} = \dfrac{C}{5}\)
Theo tính chất của dãy tỉ số bằng nhau, ta có \(\dfrac{A}{3} = \dfrac{B}{4} = \dfrac{C}{5}\)= \(\dfrac{{A + B + C}}{{3 + 4 + 5}}\)= \(\dfrac{{60}}{{12}} = 5\)
\( \Rightarrow \) A = 15 ; B = 20 ; C = 25
Vậy 3 tổ A,B,C lần lượt làm được 15,20,25 sản phẩm trong 1 giờ .
![](https://rs.olm.vn/images/avt/0.png?1311)
const
nhap='bai1.inp';
xuat='bai1.out';
var n,m,u,d:int64;
begin
assign(input,nhap);reset(input);
assign(output,xuat);rewrite(output);
read(n);
while n<>0 do
begin
m:=n mod 10;
n:=n div 10;
if (m=1) or (m=2) or (m=3) or (m=5) or
(m=7) then d:=0;
if (m=0) or (m=4) or (m=6) or (m=9)
then d:=1;
if m=8 then d:=2;
u:=u+d;
end;
writeln(u);
close(input);close(output);
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
Đáp án: A
Gọi độ cao của một lỗ thủng trên thành bình là h.
Tại thời điểm mặt thoáng của nước cách lổ khoảng h1 = H - h, vận tốc phần tử nước ở mặt thoáng bằng không, vận tốc phần tử nước ở lỗ là v0, ta có:
(H là độ cao của bình nước)
Xét chuyển động của một giọt nước khi vừa bắn ra khỏi lỗ cho đến lúc va chạm bàn.
Theo định luật bảo toàn cơ năng, ta có:
Vận tốc của nước khi vừa chạm bàn: v = 2 g h
Giá trị này không phụ thuộc h, nghĩa là mọi tia nước khi rơi chạm bàn đều có cùng một độ lớn vận tốc.
Đề yêu cầu gì bạn nhỉ?
Yêu cầu: Viết chương trình đếm xem số n (có 3 chữ số) có bao nhiêu lỗ.
như này ạ.