• Ниже записана программа. Получив на вход число , эта программа печатает два числа, и . Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 10.var x, a, b : integer;
    begin
    readln(x);
    a := 0; b := 1;
    while x > 0 do begin
    a := a + 1;
    b := b * (x mod 8);
    x := x div 8;
    end;
    writeln(a); write(b);
    end.

Ответы 1

  • кодvar    x, a, b,i: integer;begin    for i := 8 * 8 + 1 to 8 * 8 * 8 do     begin        x:=i;        a := 0;        b := 1;        while x > 0 do         begin            a := a + 1;            b := b * (x mod 8);            x := x div 8;        end;        if (a = 3) and (b = 10) then            writeln(i);    end;end.вывод85106141169330337что делает алгоритм?  Считает в восьмиричном числе кол-во знаков (а) и произведение чисел (b)
    • Автор:

      ahmady7eq
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years