B20 - Анализ программы с циклами и ветвлениями

1. Ниже записана программа. Получив на вход число x, эта программа печатает два числа. Укажите наибольшее из таких чисел x, при вводе которых алгоритм печатает сначала 3, а потом 120.

var x, L, M: integer;
begin
  readln(x);
  L:=0; M:=1;
  while x > 0 do begin
    L:=L+1;
    M:= M*(x mod 8);
    x:= x div 8;
  end;
  writeln(L); write(M);
end.

2. Ниже записана программа. Получив на вход число x, эта программа печатает два числа. Укажите наибольшее из таких чисел x, при вводе которых алгоритм печатает сначала 3, а потом 8.

var x, L, M: integer;
begin
  readln(x);
  L:=0; M:=0;
  while x > 0 do begin
    L:= L + 1;
    if x mod 2 = 0 then
      M:= M + x mod 10;
    x:= x div 10;
  end;
  writeln(L); write(M);
end.

3. Ниже записана программа. Получив на вход число x, эта программа печатает два числа. Укажите наибольшее из таких чисел x, при вводе которых алгоритм печатает сначала 3, а потом 8.

var x, L, M: integer;
begin
  readln(x);
  L:=0; M:=0;
  while x > 0 do begin
    L:= L + 1;
    if x mod 2 = 1 then
      M:= M + x mod 10;
    x:= x div 10;
  end;
  writeln(L); write(M);
end. 

4. Ниже записана программа. Получив на вход число x, эта программа печатает два числа. Укажите наибольшее из таких чисел x, при вводе которых алгоритм печатает сначала 3, а потом 7.

var x, L, M: integer;
begin
  readln(x);
  L:=0; M:=0;
  while x > 0 do begin
    L:=L+1;
    if M < x then begin
      M:=x mod 10;
    end;
    x:= x div 10;
  end;
  writeln(L); write(M);
end. 

5. Ниже записана программа. Получив на вход число x, она печатает два числа. Укажите наибольшее из таких чисел x, при вводе которых алгоритм печатает сначала 3, а потом 10.

var x, L, M: integer;
begin
  readln(x);
  L:=0; M:=0;
  while x > 0 do begin
    L:=L+1;
    if (M < x) and (x mod 2 = 1) then begin
      M:= (x mod 10) * 2;
    end;
    x:= x div 10;
  end;
  writeln(L); write(M);
end.

6. Ниже записана программа. Получив на вход число x, эта программа печатает два числа. Укажите наименьшее из таких чисел x, при вводе которых алгоритм печатает сначала 3, а потом 7.

var x, L, M: integer;
begin
  readln(x);
  L:=0; M:=0;
  while x > 0 do begin
    L:= L + 1;
    M:= M + x mod 10;
    x:= x div 10;
  end;
  writeln(L); write(M);
end.

7. Ниже записана программа. Получив на вход число x, эта программа печатает два числа. Укажите наименьшее из таких чисел x, при вводе которых алгоритм печатает сначала 3, а потом 8.

var x, L, M: integer;
begin
  readln(x);
  L:=0; M:=0;
  while x > 0 do begin
    L:= L + 1;
    if x mod 2 = 1 then
      M:= M + x mod 10;
    x:= x div 10;
  end;
  writeln(L); write(M);
end.

8. Ниже записана программа. Получив на вход число x, эта программа печатает два числа. Укажите наименьшее из таких чисел x, при вводе которых алгоритм печатает сначала 3, а потом 6.

var x, a, b : integer;
begin
  readln(x);
  a := 0; b := 1;
  while x > 0 do begin
    a := a + 1;
    b := b * (x mod 6);
    x := x div 6;
  end;
  writeln(a); write(b);
end.

9. Ниже записана программа. Получив на вход число x, эта программа печатает два числа. Укажите наименьшее из таких чисел x, при вводе которых алгоритм печатает сначала 2, а потом 21.

var x, a, b: integer;
begin
  readln(x);
  a:=0; b:=1;
  while x>0 do begin
    a:=a+1;
    b:=b*(x mod 10);
    x:= x div 10
  end;
  writeln(a); write(b);
end.

10. Ниже записана программа. Получив на вход число x, эта программа печатает два числа. Укажите наибольшее из таких чисел x, при вводе которых алгоритм печатает сначала 3, а потом 4.

var x, L, M: integer;
begin
  readln(x);
  L:=0; M:=9;
  while x > 5 do begin
    L:= L + 1;
    if M > (x mod 10) then M:= x mod 10;
    x:= x div 10;
  end;
  writeln(L); write(M);
end.