Откройте файл с текстом программы и определите результат ее выполнения ПИШИТЕ ВСЕ ПОНЯТНО, ЧТОБ СРАЗУ НАПИСАТЬ ЭТИ КОМАНДЫ

Код – система условных обозначений или сигналов.

Длина кода – количество знаков, используемых для представления кодируемой информации

Кодирование – это операция преобразования знаков или групп знаков одной знаковой системы в знаки или группы знаков другой знаковой системы.

Декодирование – расшифровка кодированных знаков, преобразование кода символа в его изображение

Двоичное кодирование – кодирование информации в виде 0 и 1

Машинный язык – логическая последовательность 0 и 1

1 бит – информация одной двоичной цифры (одного разряда)

количество информации в битах = количеству цифр двоичного кода

В теории кодирования и передачи информации под количеством информации понимают – количество кодируемых, передаваемых или хранимых символов сообщения

В теории кодирования БИТ – двоичный знак двоичного алфавита {0,1}...

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;