Hỏi có bao nhi¶u h…nh chœ nh“t có sŁ đo (theo đơn vị m†t) cıa chi•u dài và
chi•u rºng là c¡c sŁ nguy¶n dương, đồng thời có di»n t‰ch là m†t vuông?
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)
Tóm tắt
l1 = 900m
v1 = 36km/h = 10m/s
l2 = 600m
v2 = 20km/h = \(\dfrac{50}{9}\)m/s
Giải
* Trường hợp hai đoàn tàu đi cùng chiều.
Người hành khách ở đoàn tàu thứ nhất thấy đoàn tàu thứ hai chạy qua mắt mình trong thời gian:
\(t_1=\dfrac{l_2}{v_1-v_2}=\dfrac{600}{10-\dfrac{50}{9}}=135\left(s\right)\)
Người hành khách ở đoàn tàu thứ hai thấy tàu đoàn thứ nhất chạy qua mắt mình trong thời gian:
\(t_2=\dfrac{l_1}{v_1-v_2}=\dfrac{900}{10-\dfrac{50}{9}}=202,5\left(s\right)\)
* Trường hợp hai đoàn tàu đi ngược chiều.
Người hành khách ở đoàn tàu thứ nhất thấy đoàn tàu thứ hai chạy qua mắt mình trong thời gian:
\(t_1'=\dfrac{l_2}{v_1+v_2}=\dfrac{600}{\dfrac{50}{9}+10}\approx38,57\left(s\right)\)
Người hành khách ở đoàn tàu thứ hai thấy tàu đoàn thứ nhất chạy qua mắt mình trong thời gian:
\(t_2'=\dfrac{l_1}{v_1+v_2}=\dfrac{900}{\dfrac{50}{9}+10}\approx57,86\left(s\right)\)
![](https://rs.olm.vn/images/avt/0.png?1311)
program nts;
uses crt;
var a: array[-10000..10000] of integer;
n,i,s:longint;
begin
clrscr;
write('nhap so cac so nguyen:'); readln(n);
s:=1;
for i:=1 to n do
begin
write('nhap so thu ',i,'='); readln(a[i]); s:=s*a[i];
end;
write('tich cac so da nhap la: ',s);
readln;
end.
nếu tích n số đầu tiên thì sẽ khác nhé
uses crt;
var n,i,d,k:integer;
begin
clrscr;
writeln('nhap vao so n');readln(n);
for i:=1 to n do
begin
if i mod 2=0 then d:=d+1;
if i mod 2=1 then k:=k+1;end;
writeln('so cac so chan la:',d:4);
writeln('so cac so le la:',k:4);readln;end.
![](https://rs.olm.vn/images/avt/0.png?1311)
Program hotrotinhoc_hoc24;
var a: array[1..32000] of integer;
i,t,t1,d,d1,n: integer;
begin
write('Nhap so phan tu : '); readln(n);
d:=0; d1:=0; t:=0; t1:=0;
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
if a[i]<0 then
begin
inc(d);
t:=t+a[i];
end;
if a[i]>0 then
begin
inc(d1);
t1:=t1+a[i];
end;
end;
for i:=1 to n do writeln(a[i]);
writeln('Trong mang co ',d,' so nguyen am');
writeln('Trong mang co ',d1,' so nguyen duong');
writeln('Tong cac so nguyen am trong mang la : ',t);
write('Tong cac so nguyen duong trong mang la : ',t);
readln
end.
Nói gì đấy??????