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

1. Ниже записана программа. Получив на вход число 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 mod 10) then begin
      M:=x mod 10;
    end;
    x:= x div 10;
  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, а потом 10.

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) * 2;
    end;
    x:= x div 10;
  end;
  writeln(L); write(M);
end.

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

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.

5. Ниже записана программа. Получив на вход число 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.

6. Ниже записана программа. Получив на вход число 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.

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

  var x, a, b, c: integer;
  begin
    readln(x);
    a := 0; b := 10;
    while x>0 do begin
      с := x mod 10;
      a := a+c;
      if c<b then b := c;
      x := x div 10;
    end;
    writeln(a); write(b);
  end.

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

 var x, a, b, c: integer;
  begin
    readln(x);
    a:= 0; b:= 0;
    while x > 0 do begin
      c:= x mod 2;
      if c = 0 then a:= a + 1
      else b:= b + 1;
      x:= x div 10;
    end;
    writeln(a);
    writeln(b);
  end.

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

  var x, a, b, c: integer;
  begin
    readln(x);
    a:= 0; b:= 0;
    while x > 0 do begin
      c:= x mod 2;
      if c = 0 then a:= a + 1
      else b:= b + 1;
      x:= x div 8;
    end;
    writeln(a);
    writeln(b);
  end.

10. Ниже записан алгоритм. Сколько существует таких чисел x, при вводе которых алгоритм печатает сначала 2, а потом 12?

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