2. перевести числа из двоичной системы счисления в десятичную: а) 10001 б) 111011 в) 1010101 г) 110110110

А) 10001 = 1*1+0*2+0*4+0*8+1*16= 1+0+0+0+16=17 б) 111011 = 1*1+1*2+0*4+1*8+1*16+1*32= 1+2+0+8+16+32 = 59 в) 1010101 = 1*1+0*2+1*4+0*8+1*16+0*32+1*64= 1+4+16+64 = 85 г) 110110110 = 0*1+1*2+1*4+0*8+1*16+1*32+0*64+1*128+1*256 =    2+4+16+32+128+256 = 438

50зн=50байт

60зн=60байт

1кбайт= 1024байта

1мб=1024кбайта

=> 1мбайт=(1024*1024)байт

1мбайт=1048576 байт

50байт/1048576байт=0,0000476837мбайт

60байт/1048576байт=0,0000572205мбайт 

по введенному натуральному числу n(n< =100) обозначаешему количество ворон вывести надпись ,на дереве n ворон.где ворона склоняеться соответсвено n: 'ворон'.'ворона"вороны' в случаем n превышаюшего 100 вывести надпись 'ветка обламилась'

 

uses crt; var n : integer; begin clrscr; repeat write ( 'введите число от 1 до 100 n = ' ); readln (n ); until n> 0; case n of 11..14 : write ( 'сидело ' ,n , ' ворон' ); 1..10 ,15..100 : case n mod 10 of                 1 : write ( 'на дереве сидела ' ,n , ' ворона' );                 2..4 : write ( 'на дереве сидели ' ,n , ' вороны' );                 0 ,5..9 : write ( 'на дереве сидело ' ,n , ' ворон' );                 end else write ( 'ветка обломилась! ' ); end; readln; end.