Угловой размер какого-либо небесного объекта в угловых секундах можно найти по формуле: α'' = D*206265/S. Здесь D - линейный размер объекта; 206265 - количество угловых секунд в одном радиане; S - расстояние до объекта. Как видно из формулы угловой размер Венеры зависит не только от D = 12103,6 км, но и от расстояние до Венеры. При минимальном расстоянии до Венеры её угловой размер α''max = 12103,6*206265/(150000000 - 108208930) = 59,7''. При максимальном удалении Венеры её угловой размер минимален и равен α''min = 12103,6*206265/(150000000 + 108208930) ≈ 9,7''. Средний угловой размер Венеры α''ср = (59,7 + 9,7)/2 = 34,7''
Перед тим, як увійти у приміщення, що горить, накрийтесь мокрою ковдрою, будь-яким одягом чи щільною тканиною.
Далі двері в задимлене приміщення відкривайте обережно, щоб уникнути займання від великого притоку свіжого повітря. Якщо на людині горить одяг, зваліть її на землю та швидко накиньте пальто, плащ або будь-яку ковдру чи покривало (бажано зволожену) і щільно притисніть до тіла, у разі необхідності викличте медичну до . Якщо горить електричне обладнання або проводка, вимкніть рубильник, вимикач або електричні пробки, а потім починайте гасити вогонь.
Якщо пожежа застала вас у приміщенні, слід дотримуватись наступних правил:
1. якщо ви прокинулись від шуму пожежі і запаху диму, не сідайте в ліжку, а скотіться з нього прямо на підлогу;
до дверей приміщення слід повзти підлогою під хмарою диму, але не відчиняти двері відразу;
обережно доторкніться до дверей тильною стороною долоні, якщо двері не гарячі, то відчиніть їх та швидко виходьте;
2. якщо двері гарячі, не відчиняйте їх – дим та полум’я не дозволять вам вийти;
щільно закрийте двері, а всі щілини і отвори заткніть будь-якою тканиною, щоб уникнути подальшого проникнення диму. Повертайтесь поповзом у глибину приміщення і приймайте заходи до порятунку;
присядьте та глибоко вдихніть повітря, розкрийте вікно, висуньтеся та спробуйте покликати за до ;
3. якщо ви не в змозі розкрити вікно, розбийте віконне скло твердим предметом та зверніть увагу людей, які можуть викликати пожежну команду;
var s :string;
i, j, dva, otv :integer;
begin
write (‘vvedite dvoichnoe chislo = ’);
readln (s);
for i := 1 to length(s) do
if strtoint (s[i]) > 0 then
begin
dva:= 1;
for j:= 1 to length(s)-i do
dva:=dva*2;
otv:=otv+dva;
end;
writeln(otv);
readln;
end.