Program DemoSet; uses crt; var s:string; i,k:integer; begin k:=0; clrscr; write('Введите произвольную строку =>'); readln(s); writeln('Строка результат'); for i:=1 to length(s) do begin if not(s[i] in [1234567890] )then begin if s[i] in ['0'..'9'] then inc(k); write(s[i]) end; end; writeln; writeln('Количество цифр в строке ',k); readln end
1. 2 во 2 степени=4 это сообщение несет 2 бита. Здесь я не уверена, но думаю верно) Ответ: 2 бита 2. 1 символ весит=8бит=1байт 150*40*60=360000 символов в книге и весит книга 360000 байт можно перевести в Кбайты для удобства для этого нужно 360000/1024=351,5625Кбайт Ответ:351,5625Кбайт <span>3. 2 в 6 степени = 64, т.е. один символ равен 6 битам . 0.75*1024*8=6144 бита 6144/32=192 бита - одна страница весит 192*6=1152 символа на каждой странице Ответ: 1152 символа</span>