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

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

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

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.

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

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

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.

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

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

  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.

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

  var x, y, a, b: longint;
  begin
    a := 0;
    b := 0;
    readln(x);
    while x > 0 do begin
      y := x mod 10;
      if y > 4 then a := a + 1;
      if y < 6 then b := b + 1;
      x := x div 10
    end;
    writeln(a);
    writeln(b)
  end.

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

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

9. Получив на вход число x, этот алгоритм печатает число M. Известно, что x>100. Укажите наименьшее такое (т. е. большее 100) число x, при вводе которого алгоритм печатает 15.

  var x, L, M: integer;
  begin
    readln(x);
    L := x-30;
    M := x+30;
    while L <> M do
      if L > M then
        L := L - M
      else
        M := M - L;
    writeln(M);
  end.

10. Получив на вход число x, этот алгоритм печатает число M. Известно, что x>100. Укажите наименьшее такое (т. е. большее 100) число x, при вводе которого алгоритм печатает 30.

  var x, L, M: integer;
  begin
    readln(x);
    L := x-30;
    M := x+30;
    while L <> M do
      if L > M then
        L := L - M
      else
        M := M - L;
    writeln(M);
  end.