148 , нужно написать програмку в формате егэ из сборника+ ещё столько же во втором таком же в сумме 148 за программу

ответ:Шестнадцатеричная система - 24.

Двоичная система - 100100.

Посмотрите так же как пишутся десятичные цифры 7, 9, 49, 290, 449, 106, 682, 890, 319, 4081, 8002, 58854, 41006, 146286, 431900 в различных системах счисления.

Число 36 в других системах счисления:

2 - 100100, 3 - 1100, 4 - 210, 5 - 121, 6 - 100, 7 - 51, 8 - 44, 9 - 40, 10 - 36, 11 - 33, 12 - 30, 13 - 2a, 14 - 28, 15 - 26, 16 - 24, 17 - 22, 18 - 20, 19 - 1h, 20 - 1g, 21 - 1f, 22 - 1e, 23 - 1d, 24 - 1c, 25 - 1b, 26 - 1a, 27 - 19, 28 - 18, 29 - 17, 30 - 16, 31 - 15, 32 - 14.

Объяснение:

Вот правильно

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;