program evg97; uses crt; var a,b,c: real; begin writeln('++'); writeln('| порівнялка |'); writeln('++'); write('введіть число a: '); readln(a); write('введите число b: '); readln(b); write('введіть число c: '); readln(c); writeln(); writeln('++'); writeln('| результат: |'); writeln('++'); if (a=b) or (a=c) or (b=c) then writeln('| деякі (або всі) числа рівні |') else if (a< b) and (b< c) then writeln('| число посередині: b=',b: 8: 3,' |') else if (a< c) and (c< b) then writeln('| число посередині: c=',c: 8: 3,' |') else writeln('| число посередині: a=',a: 8: 3,' |'); writeln('++'); end.
1). F=ρ·g·V ρ=1000 кг/м³ g=10 м/c² V=0.03/3 м³ F=1000·10·0.01 F=100 Н 2). V=0.002 м³ F=14.2 Н g=9.8 м/c² ρ =F/(g·V) ρ=724 кг/м³ По плотности подходит бензин Если g=10 м/c² то ρ=710 кг/м³ это будет спирт что из них, сам решай. 3). ρ(стали)=7800 кг/м³ ρ(Воды)=1000 кг/м³ V=0.00005 м³ P= ρ·g·V Pc=3.9 Pv=0.5 F=Pc-Pv F=3.4 Н Динамометр покажет 3.4 Н 4). V=0.00625 м P=20 Н g=9.8 м/c² ρ(Воды)=1000 кг/м³ F (воды)=9.8·1000·0.00625 F(воды)=61.25 Вес=61.25-20=41.25 Н ответ: 41.24 Н 5). F=234600000 Н ρ(Воды)=1000 кг/м³ g=10 м/c² V=F/(g· ρ) V=23460 6) h=0.2 м S=4000 м² g=10 м/c² V=h·S P= ρ·g·V P= ρ·g·h·S P=8000000 Н 7). Т ут с данными напутано Решаем для L=20 см=0.2 м S=8 см=0.08 м H=5 см =0.05 м P=2 Н ΔH=1 см= 0.01 м Определяем объем погруженной части коробки V=L·S·(H- ΔH) V=0.00064 м³ Орределяем Архимедову силу g=9.8 м/c² ρ(Воды)=1000 кг/м³ F=9.8·1000·0.00064 F=6.272 Н На песок остается 4.272 Н m·g=F-P m=4.272/9.8 m=0.436 кг m=435 грамм 8). µ(H2)=2 г/моль µ(He)=4 г/моль µ(Воздуха)=29 г/моль N=(29-2)/(29-4) N=1.08 Подъемная сила аэростата, наполненного Водородом всего на 8% больше, чем подъемная сила при наполнении его Гелием. 9). P- вес цилиндра P= ρ·g·V ρ(Воды)=1000 кг/м³ По условию задачи P=1.5·(P-FA) 0.5·P=1.5·FA 0.5· ρ·g·V=1.5·ρ(Воды)·g·V ρ=3·ρ(Воды) ρ=3000 кг/м³
program evg97; uses crt; var a,b,c: real; begin writeln('++'); writeln('| порівнялка |'); writeln('++'); write('введіть число a: '); readln(a); write('введите число b: '); readln(b); write('введіть число c: '); readln(c); writeln(); writeln('++'); writeln('| результат: |'); writeln('++'); if (a=b) or (a=c) or (b=c) then writeln('| деякі (або всі) числа рівні |') else if (a< b) and (b< c) then writeln('| число посередині: b=',b: 8: 3,' |') else if (a< c) and (c< b) then writeln('| число посередині: c=',c: 8: 3,' |') else writeln('| число посередині: a=',a: 8: 3,' |'); writeln('++'); end.