Procedure TForm1.Button1Click(Sender: TObject); var i1,i2,i3 : Integer; kk : Integer; Chislo : Integer; begin Memo1.Clear; kk := 0; for i1 := 1 to 9 do for i2 := 0 to 9 do for i3 := 0 to 9 do if ( (i1<>i2) and (i1<>i3) and (i2<>i3) ) then if ( Frac((i1+i2+i3)/7)=0 ) then begin Chislo := i1*100 + i2*10 + i3; if ( Frac(Chislo/7)=0 ) then begin Memo1.Lines.Append(inttostr(Chislo)); inc(kk); end; end; end;
Длина кода – количество знаков, используемых для представления кодируемой информации
Кодирование – это операция преобразования знаков или групп знаков одной знаковой системы в знаки или группы знаков другой знаковой системы.
Декодирование – расшифровка кодированных знаков, преобразование кода символа в его изображение
Двоичное кодирование – кодирование информации в виде 0 и 1
Машинный язык – логическая последовательность 0 и 1
1 бит – информация одной двоичной цифры (одного разряда)
количество информации в битах = количеству цифр двоичного кода
В теории кодирования и передачи информации под количеством информации понимают – количество кодируемых, передаваемых или хранимых символов сообщения
В теории кодирования БИТ – двоичный знак двоичного алфавита {0,1}...