Program algorithm; uses crt; var s,sbox:string; i,step,dva,n,l,delo:integer; begin Writeln('Введите двоичное число:'); read(dva); s:=IntToStr(dva); l:=length(s); for i:=1 to l do begin dva:=StrToInt(s[i]); step:=l-i; if dva>0 then begin for n:=1 to step do dva:=dva*2;
◘Объективность информации. Например: "На улице холодно" - это субъективная информация. А "На улице -14°" - объективная (но не всегда точная) ◘Достоверность информации. Ин-фа достоверна, если отражает истинное положение дел. (объективная информация всегда достоверна) ◘Полнота информации. Информация полная, если ее достаточно для понимания и принятия решения. ◘Точность информации. Определяется степенью ее близости к реальному состоянию объекта, процесса, явления и т.д. ◘Актуальность информации – важность для настоящего времени. ◘Полезность информации. - Самая ценная информация – объективная, достоверная, полная, и актуальная.
9 килобайт = 9216 байт. Зная информационный объём рассказа и количество страниц, найдём информационный объём одной страницы. В условии сказано, что каждый символ кодируется 8 битами, т.е. одним байтом. Также мы знаем количество символов в одной строке. Умножив 1 байт на количество символов в строке, найдём информационный объём одной строки. И, наконец, разделив информационный объём страницы на информационный объём строки, найдём количество строк на странице.
1) 9216 : 6 = 1536 (байт) – информационный объём одной страницы.
2) 1 × 48 = 48 (байт) – информационный объём одной строки.
3) 1536 : 48 = 32 (стр.) – количество строк на каждой странице.
uses crt;
var s,sbox:string;
i,step,dva,n,l,delo:integer;
begin
Writeln('Введите двоичное число:');
read(dva); s:=IntToStr(dva);
l:=length(s);
for i:=1 to l do
begin dva:=StrToInt(s[i]);
step:=l-i;
if dva>0
then
begin
for n:=1 to step do dva:=dva*2;
delo:=delo+dva;
end;
end;
Writeln('Десятичное число: ',delo);
end.