Задачи из задания ege20 для подготовки к ЕГЭ по информатике

Циклы и ветвления
В этом задании можно выделить задачи следующих типов:
Разбор по цифрам 1 ( 32 )

1583 ege20 Разбор по цифрам 1
Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 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. 
   x = input()
   L=0
   M=0
   while x > 0:
     L= L + 1
     M= M + x % 10
     x= x // 10
   print(L)
   print(M)
 
Ответ:
Решение:
   
1584 ege20 Разбор по цифрам 1
Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 0.
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.
   x = input()
   L=0
   M=0
   while x > 0:
     L= L + 1
     if x % 2 == 0:
       M= M + x % 10
     x= x // 10
   print(L)
   print(M)
 
Ответ:
Решение:
   
1585 ege20 Разбор по цифрам 1
Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 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.
   x = input()
   L=0
   M=0
   while x > 0:
     L= L + 1
     if x % 2 == 0:
       M= M + x % 10
     x= x // 10
   print(L)
   print(M)
Ответ:
Решение:
   
1586 ege20 Разбор по цифрам 1
Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 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.
   x = input()
   L=0
   M=0
   while x > 0:
     L= L + 1
     if x % 2 == 1:
       M= M + x % 10
     x= x // 10
   print(L)
   print(M)
Ответ:
Решение:
   
1587 ege20 Разбор по цифрам 1
Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 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 = 0 then
      M:= M + (x mod 10) div 2;
    x:= x div 10;
  end;
  writeln(L); write(M);
end.
   x = input()
   L=0
   M=0
   while x > 0:
     L= L + 1
     if x % 2 == 0:
       M= M + (x % 10) // 2
     x= x // 10
   print(L)
   print(M)
Ответ:
Решение:
   
1588 ege20 Разбор по цифрам 1
Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 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.
   x = input()
   L=0
   M=0
   while x > 0:
     L= L + 1
     if x % 2 == 1:
       M= M + (x % 10) // 2
     x= x // 10
   print(L)
   print(M)
Ответ:
Решение:
   
1589 ege20 Разбор по цифрам 1
Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 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.
   x = input()
   L=0
   M=0
   while x > 0:
     L=L+1
     if M < x:
       M=x % 10
     x= x // 10
   print(L)
   print(M)
 
Ответ:
Решение:
   
1590 ege20 Разбор по цифрам 1
Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 8.
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 = 0) then begin
      M:=x mod 10;
    end;
    x:= x div 10;
  end;
  writeln(L); write(M);
end.
   x = input()
   L=0
   M=0
   while x > 0:
     L=L+1
     if (M < x) and (x % 2 == 0):
       M=x % 10
     x= x // 10
   print(L)
   print(M)
Ответ:
Решение:
   
1591 ege20 Разбор по цифрам 1
Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 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.
   x = input()
   L=0
   M=0
   while x > 0:
     L=L+1
     if (M < x) and (x % 2 == 1):
       M= (x % 10) * 2
     x= x // 10
   print(L)
   print(M)
 
Ответ:
Решение:
   
1592 ege20 Разбор по цифрам 1
Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 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.
   x = input()
   L=0
   M=0
   while x > 0:
     L=L+1
     if M < x:
       M= (x % 10) * 2
     x= x // 10
   print(L)
   print(M)
Ответ:
Решение:
   
1593 ege20 Разбор по цифрам 1
Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 2, а потом 72.
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.
   x = input()
   a=0
   b=1
   while x>0:
     a=a+1
     b=b*(x % 10)
     x= x // 10
   print(a)
   print(b)
 
Ответ:
Решение:
   
1594 ege20 Разбор по цифрам 1
Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 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.
   x = input()
   a = 0
   b = 1
   while x > 0:
     a = a + 1
     b = b * (x % 10)
     x = x // 10
   print(a)
   print(b)
Ответ:
Решение:
   
1595 ege20 Разбор по цифрам 1
Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 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.
   x = input()
   a = 0
   b = 1
   while x > 0:
     a = a + 1
     b = b * (x % 10)
     x = x // 10
   print(a)
   print(b)
Ответ:
Решение:
   
1596 ege20 Разбор по цифрам 1
Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 0.
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.
   x = input()
   a = 0
   b = 1
   while x > 0:
     a = a + 1
     b = b * (x % 10)
     x = x // 10
   print(a)
   print(b)
Ответ:
Решение:
   
1597 ege20 Разбор по цифрам 1
Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 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.
   x = input()
   L=0
   M=0
   while x > 0:
     L= L + 1
     M= M + x % 10
     x= x // 10
   print(L)
   print(M)
Ответ:
Решение:
   
1598 ege20 Разбор по цифрам 1
Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 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.
   x = input()
   L=0
   M=0
   while x > 0:
     L= L + 1
     if x % 2 == 0:
       M= M + x % 10
     x= x // 10
   print(L)
   print(M)
 
Ответ:
Решение:
   
1599 ege20 Разбор по цифрам 1
Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 0.
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.
   x = input()
   L=0
   M=0
   while x > 0:
     L= L + 1
     if x % 2 == 0:
       M= M + x % 10
     x= x // 10
   print(L)
   print(M)
 
Ответ:
Решение:
   
1600 ege20 Разбор по цифрам 1
Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 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.
   x = input()
   L=0
   M=0
   while x > 0:
     L= L + 1
     if x % 2 == 1:
       M= M + x % 10
     x= x // 10
   print(L)
   print(M)
 
Ответ:
Решение:
   
1601 ege20 Разбор по цифрам 1
Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 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 = 0 then
      M:= M + (x mod 10) div 2;
    x:= x div 10;
  end;
  writeln(L); write(M);
end.
   x = input()
   L=0
   M=0
   while x > 0:
     L= L + 1
     if x % 2 == 0:
       M= M + (x % 10) // 2
     x= x // 10
   print(L)
   print(M)
Ответ:
Решение:
   
1602 ege20 Разбор по цифрам 1
Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 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.
   x = input()
   L=0
   M=0
   while x > 0:
     L= L + 1
     if x % 2 == 1:
       M= M + (x % 10) // 2
     x= x // 10
   print(L)
   print(M)
Ответ:
Решение:
   
1603 ege20 Разбор по цифрам 1
Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 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.
   x = input()
   L=0
   M=0
   while x > 0:
     L=L+1
     if M < x:
       M=x % 10
     x= x // 10
   print(L)
   print(M)
Ответ:
Решение:
   
1604 ege20 Разбор по цифрам 1
Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 8.
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 = 0) then begin
      M:=x mod 10;
    end;
    x:= x div 10;
  end;
  writeln(L); write(M);
end.
   x = input()
   L=0
   M=0
   while x > 0:
     L=L+1
     if (M < x) and (x % 2 == 0):
       M=x % 10
     x= x // 10
   print(L)
   print(M)
 
Ответ:
Решение:
   
1605 ege20 Разбор по цифрам 1
Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 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.
   x = input()
   L=0
   M=0
   while x > 0:
     L=L+1
     if (M < x) and (x % 2 == 1):
       M= (x % 10) * 2
     x= x // 10
   print(L)
   print(M)
 
Ответ:
Решение:
   
1606 ege20 Разбор по цифрам 1
Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 28.
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:= M + (x mod 10) * 2;
    end;
    x:= x div 10;
  end;
  writeln(L); write(M);
end.
   x = input()
   L=0
   M=0
   while x > 0:
     L=L+1
     if M < x:
       M= M + (x % 10) * 2
     x= x // 10
   print(L)
   print(M)
Ответ:
Решение:
   
1607 ege20 Разбор по цифрам 1
Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 2, а потом 72.
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.
   x = input()
   a=0
   b=1
   while x>0:
     a=a+1
     b=b*(x % 10)
     x= x // 10
   print(a)
   print(b)
Ответ:
Решение:
   
1608 ege20 Разбор по цифрам 1
Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 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.
   x = input()
   a = 0
   b = 1
   while x > 0:
     a = a + 1
     b = b * (x % 10)
     x = x // 10
   print(a)
   print(b)
Ответ:
Решение:
   
1609 ege20 Разбор по цифрам 1
Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 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.
   x = input()
   a = 0
   b = 1
   while x > 0:
     a = a + 1
     b = b * (x % 10)
     x = x // 10
   print(a)
   print(b)
Ответ:
Решение:
   
1610 ege20 Разбор по цифрам 1
Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 36.
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.
   x = input()
   a = 0
   b = 1
   while x > 0:
     a = a + 1
     b = b * (x % 10)
     x = x // 10
   print(a)
   print(b)
Ответ:
Решение:
   
1615 ege20 Разбор по цифрам 1
Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 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.
   x = input()
   a=0
   b=1
   while x>0:
     a=a+1
     b=b*(x % 10)
     x= x // 10
   print(a)
   print(b)
Ответ:
Решение:
   
1616 ege20 Разбор по цифрам 1
Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 35.
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.
   x = input()
   a=0
   b=1
   while x>0:
     a=a+1
     b=b*(x % 10)
     x= x // 10
   print(a)
   print(b)
Ответ:
Решение:
   
1619 ege20 Разбор по цифрам 1
Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 6, а потом 5.
var x, a, b: integer;
begin
  readln(x);
  a:=0; b:=0;
  while x>0 do begin
    a:= a + 2;
    b:= b + (x mod 10);
    x:= x div 10;
  end;
  writeln(a); write(b);
end.
   x = input()
   a=0
   b=0
   while x>0:
     a= a + 2
     b= b + (x % 10)
     x= x // 10
   print(a)
   print(b)
Ответ:
Решение:
   
1620 ege20 Разбор по цифрам 1
Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 8, а потом 19.
var x, a, b: integer;
begin
  readln(x);
  a:=0; b:=0;
  while x>0 do begin
    a:= a + 2;
    b:= b + (x mod 10);
    x:= x div 10;
  end;
  writeln(a); write(b);
end.
   x = input()
   a=0
   b=0
   while x>0:
     a= a + 2
     b= b + (x % 10)
     x= x // 10
   print(a)
   print(b)
Ответ:
Решение:
   
Через НЕдесятиричную систему ( 6 )

1611 ege20 Через НЕдесятиричную систему
Укажите набольшее из таких чисел , при вводе которых алгоритм печатает сначала 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.
   x = input()
   a = 0
   b = 1
   while x > 0:
     a = a + 1
     b = b * (x % 8)
     x = x // 8
   print(a)
   print(b)
Ответ:
Решение:
   
1612 ege20 Через НЕдесятиричную систему
Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 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.
   x = input()
   a = 0
   b = 1
   while x > 0:
     a = a + 1
     b = b * (x % 8)
     x = x // 8
   print(a)
   print(b)
Ответ:
Решение:
   
1613 ege20 Через НЕдесятиричную систему
Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 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.
   x = input()
   a = 0
   b = 1
   while x > 0:
     a = a + 1
     b = b * (x % 6)
     x = x // 6
   print(a)
   print(b)
Ответ:
Решение:
   
1614 ege20 Через НЕдесятиричную систему
Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 9.
var x, a, b : integer;
begin
  readln(x);
  a := 0; b := 1;
  while x > 0 do begin
    a := a + 1;
    b := b * (x mod 5);
    x := x div 5;
  end;
  writeln(a); write(b);
end.
   x = input()
   a = 0
   b = 1
   while x > 0:
     a = a + 1
     b = b * (x % 5)
     x = x // 5
   print(a)
   print(b)
Ответ:
Решение:
   
1642 ege20 Через НЕдесятиричную систему
Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 6.
var x, L, M: integer;
begin
  readln(x);
  L := 0;
  M := 0;
  while x > 0 do begin
    M := M + 1;
    if x mod 2 <> 0 then
      L := L + 1;
    x := x div 2;
  end;
  writeln(L);
  writeln(M);
end.
   x = input()
   L = 0
   M = 0
   while x > 0:
     M = M + 1
     if x % 2 != 0:
       L = L + 1
     x = x // 2
   print(L)
   print(M)
Ответ:
Решение:
   
1644 ege20 Через НЕдесятиричную систему
Укажите наибольшее число x, при вводе которого алгоритм печатает сначала 5, а потом 8.
var x, L, M: integer;
begin
  readln(x);
  L := 0;
  M := 0;
  while x > 0 do begin
    M := M + 1;
    if x mod 2 <> 0 then 
      L := L + 1;
    x := x div 2;
  end;
  writeln(L);
  writeln(M);
end.
   x = input()
   L = 0
   M = 0
   while x > 0:
     M = M + 1
      if x % 2 != 0:
       L = L + 1
     x = x // 2
   print(L)
   print(M)
 
Ответ:
Решение:
   
1633 ege20 Через НЕдесятиричную систему
Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 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.
   x = input()
   a= 0
   b= 0
   while x > 0:
     c= x % 2
     if c == 0:
        a += 1
     else:
       b += 1
     x= x // 8
   print(a)
   print(b)
Ответ:
Решение:
   
1634 ege20 Через НЕдесятиричную систему
Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 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 6;
  end;
  writeln(a);
  writeln(b);
end.
   x = input()
   a= 0
   b= 0
   while x > 0:
     c= x % 2
     if c == 0:
        a += 1
     else:
       b += 1
     x= x // 6
   print(a)
   print(b)
Ответ:
Решение:
   
Разбор по цифрам 2 ( 2 )

Не до нуля

1617 ege20 Разбор по цифрам 2
Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 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.
   x = input()
   L = 0
   M = 9
   while x > 5:
     L = L + 1
     if M > (x % 10):
       M = x % 10
     x = x // 10
   print(L)
   print(M)
Ответ:
Решение:
   
1618 ege20 Разбор по цифрам 2
Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 7.
var x, L, M: integer;
begin
  readln(x);
  L:=0; M:=0;
  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.
   x = input()
   L=0
   M=0
   while x > 5:
     L= L + 1
     if M < (x % 10):
       M = x % 10
     x= x // 10
   print(L)
   print(M)
Ответ:
Решение:
   
НОД ( 11 )

1621 ege20 НОД
Ниже записан алгоритм. После выполнения алгоритма было напечатано 3 числа. Первые два напечатанных числа – это числа 7 и 42. Какое наибольшее число может быть напечатано третьим?
var x, y, z: integer;
    r, a, b: integer;
begin
  readln(x, у);
  if у > x then begin
    z:= x; x:= у; у:= z;
  end;
  a:= x; b:= y;
  while b > 0 do begin
    r:= a mod b;
    a:= b;
    b:= r;
  end;
  writeln(a);
  writeln(x);
  write(у);
end.
   x, у = input()
   if у > x:
     z= x
     x= у
     у= z
   a= x
   b= y
   while b > 0:
     r= a % b
     a= b
     b= r
   print(a)
   print(x)
   print(у)
Ответ:
Решение:
   
1622 ege20 НОД
Ниже записан алгоритм. После выполнения алгоритма было напечатано 3 числа. Первые два напечатанных числа – это числа 13 и 65. Какое наибольшее число может быть напечатано третьим?
var x, y, z: integer;
    r, a, b: integer;
begin
  readln(x, у);
  if у > x then begin
    z:= x; x:= у; у:= z;
  end;
  a:= x; b:= y;
  while b > 0 do begin
    r:= a mod b;
    a:= b;
    b:= r;
  end;
  writeln(a);
  writeln(x);
  write(у);
end.
   x, у = input()
   if у > x:
     z= x
     x= у
     у= z
   a= x
   b= y
   while b > 0:
     r= a % b
     a= b
     b= r
   print(a)
   print(x)
   print(у)
 
Ответ:
Решение:
   
1645 ege20 НОД
Укажите наименьшее такое (большее 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.
   x = input()
   L = x-30
   M = x+30
   while L != M do:
     if L > M:
       L = L - M
     else:
       M = M – L
   print(M)
Ответ:
Решение:
   
1646 ege20 НОД
Укажите наименьшее такое (т. е. большее 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.
   x = input()
   L = x-30
   M = x+30
   while L <> M do:
     if L > M:
       L = L - M
     else:
       M = M – L
   print(M)
Ответ:
Решение:
   
1652 ege20 НОД
Получив на вход число x, этот алгоритм печатает число M. Известно, что x > 100. Укажите наименьшее такое число x, при вводе которого алгоритм печатает 2.
var x, L, M: integer;
begin
  readln(x);
  L := x-12;
  M := x+12;
  while L <> M do
    if L > M then
      L := L - M
    else
      M := M – L;
  writeln(M);
end.
   x = input()
   L = x-12
   M = x+12
   while L != M do:
     if L > M:
       L = L - M
     else:
       M = M – L
   print(M)
 
Ответ:
Решение:
   
1653 ege20 НОД
Получив на вход число x, этот алгоритм печатает число M. Известно, что x > 100. Укажите наименьшее такое число x, при вводе которого алгоритм печатает 11.
var x, L, M: integer;
begin
  readln(x);
  L := x-21;
  M := x+12;
  while L <> M do
    if L > M then
      L := L - M
    else
      M := M – L;
  writeln(M);
end.
   x = input()
   L = x-21
   M = x+12
   while L != M do:
     if L > M:
       L = L - M
     else:
       M = M – L
   print(M)
Ответ:
Решение:
   
1654 ege20 НОД
Получив на вход число x, этот алгоритм печатает число M. Известно, что x > 100. Укажите наименьшее такое число x, при вводе которого алгоритм печатает 35.
var x, L, M: integer;
begin
  readln(x);
  L := x-15;
  M := x+20;
  while L <> M do
    if L > M then
      L := L - M
    else
      M := M – L;
  writeln(M);
end.
   x = input()
   L = x-15
   M = x+20
   while L != M do:
     if L > M:
       L = L - M
     else:
       M = M – L
   print(M)
Ответ:
Решение:
   
1655 ege20 НОД
Получив на вход число x, этот алгоритм печатает число M. Известно, что x > 100. Укажите наименьшее такое число x, при вводе которого алгоритм печатает 9.
var x, L, M: integer;
begin
  readln(x);
  L := x-18;
  M := x+36;
  while L <> M do
    if L > M then
      L := L - M
    else
      M := M – L;
  writeln(M);
end.
   x = input()
   L = x-18
   M = x+36
   while L != M do:
     if L > M:
       L = L - M
     else:
       M = M – L
   print(M)
Ответ:
Решение:
   
1656 ege20 НОД
Получив на вход число x, этот алгоритм печатает число M. Известно, что x > 100. Укажите наименьшее такое число x, при вводе которого алгоритм печатает 35.
var x, L, M: integer;
begin
  readln(x);
  L := x-20;
  M := x+15;
  while L <> M do
    if L > M then
      L := L - M
    else
      M := M – L;
  writeln(M);
end.
   x = input()
   L = x-20
   M = x+15
   while L != M do:
     if L > M:
       L = L - M
     else:
       M = M – L
   print(M)
Ответ:
Решение:
   
1657 ege20 НОД
Получив на вход число x, этот алгоритм печатает число M. Известно, что x > 100. Укажите наименьшее такое число x, при вводе которого алгоритм печатает 4.
var x, L, M: integer;
begin
  readln(x);
  L := x-16;
  M := x+32;
  while L <> M do
    if L > M then
      L := L - M
    else
      M := M – L;
  writeln(M);
end.
   x = input()
   L = x-16
   M = x+32
   while L != M do:
     if L > M:
       L = L - M
     else:
       M = M – L
   print(M)
Ответ:
Решение:
   
1658 ege20 НОД
Укажите наименьшее такое число x, при вводе которого алгоритм печатает 16. Известно, что x > 100.
var x, L, M: integer;
begin
  readln(x);
  L := x-16;
  M := x+16;
  while L <> M do
    if L > M then
      L := L - M
    else
      M := M – L;
  writeln(M);
end.
   x = input()
   L = x-16
   M = x+16
   while L ! M do:
     if L > M:
       L = L - M
     else:
       M = M – L
   print(M)
Ответ:
Решение:
   
Сумма/произведение и минимум/максимум ( 6 )

1627 ege20 Сумма/произведение и минимум/максимум
Укажите наименьшее из чисел , при вводе которых алгоритм печатает сначала 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.
   x = input()
   a = 0
   b = 10
   while x>0:
     с = x % 10
     a = a+c
     if c<b:
       b = c
     x = x // 10
   print(a)
   print(b)
Ответ:
Решение:
   
1628 ege20 Сумма/произведение и минимум/максимум
Укажите наибольшее из чисел , при вводе которых алгоритм печатает сначала 15, а потом 5.
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.
   x = input()
   a = 0
   b = 10
   while x>0:
     с = x % 10
     a = a+c
     if c < b:
       b = c
     x = x // 10
   print(a)
   print(b)
Ответ:
Решение:
   
1629 ege20 Сумма/произведение и минимум/максимум
Укажите наибольшее из чисел , при вводе которых алгоритм печатает сначала 13, а потом 3.
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.
   x = input()
   a = 0
   b = 10
   while x>0:
     с = x % 10
     a = a+c
     if c < b:
       b = c
     x = x // 10
   print(a)
   print(b)
Ответ:
Решение:
   
1630 ege20 Сумма/произведение и минимум/максимум
Укажите наименьшее из чисел , при вводе которых алгоритм печатает сначала 19, а потом 4.
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.
   x = input()
   a = 0
   b = 10
   while x>0:
     с = x % 10
     a = a+c
     if c < b:
       b = c
     x = x // 10
   print(a)
   print(b)
 
Ответ:
Решение:
   
1631 ege20 Сумма/произведение и минимум/максимум
Укажите набольшее из таких чисел , при вводе которых алгоритм печатает сначала 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 10;
  end;
  writeln(a);
  writeln(b);
end.
   x = input()
   a= 0
   b= 0
   while x > 0:
     c= x % 2
     if c == 0:
        a += 1
     else:
       b = b + 1
     x= x // 10
   print(a)
   print(b)
Ответ:
Решение:
   
1647 ege20 Сумма/произведение и минимум/максимум
Укажите наименьшее из таких чисел x, при вводе которых алгоритм печатает сначала 45, а потом 5.
var x, a, b, c: integer;
begin
  readln(x);
  a := 1; b := 10;
  while x>0 do begin
    c := x mod 10;
    a := a*c;
    if c<b then b := c;
    x := x div 10;
  end;
  writeln(a); write(b);
end.
   x = input()
   a = 1
   b = 10
   while x>0:
     c = x % 10
     a = a*c
     if c < b:
       b = c
     x = x // 10
   print(a)
   print(b)
Ответ:
Решение:
   
Четные и нечетные ( 3 )

1632 ege20 Четные и нечетные
Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 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.
   x = input()
   a= 0
   b= 0
   while x > 0:
     c= x % 2
     if c == 0:
        a += 1
     else:
       b += 1
     x= x // 10
   print(a)
   print(b)
Ответ:
Решение:
   
Дополнительный счетчик ( 4 )

1648 ege20 Дополнительный счетчик
Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 2.
var x, a, b, i, c: integer;
begin
  readln(x);
  a:= 0; b:= 0; i:=0;
  while x > 0 do begin
    i:= i + 1;
    c:= x mod 10;
    if i mod 2  = 0 then a:= a + c
    else b:= b + c;
    x:= x div 10;
  end;
  writeln(a);
  writeln(b);
end.
   x = input()
   a= 0
   b= 0
   i=0
   while x > 0:
     i= i + 1
     c= x % 10
     if i % 2  == 0:
       a += c
     else 
       b += c
     x= x // 10
   print(a)
   print(b)
Ответ:
Решение:
   
1649 ege20 Дополнительный счетчик
Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 4, а потом 5.
var x, b, i: integer;
begin
  readln(x);
  b:= 0; i:=0;
  while x > 0 do begin
    if i mod 2  > 0 then b:= b + x mod 10;
    x:= x div 10;
    i:= i + 1;
  end;
  writeln(i);
  writeln(b);
end.
   x = input()
   b= 0
   i=0
   while x > 0:
     if i % 2  > 0:
       b += x % 10
     x= x // 10
     i= i + 1
   print(i)
   print(b)
Ответ:
Решение:
   
1650 ege20 Дополнительный счетчик
Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 4, а потом 5.
var x, b, i: integer;
begin
  readln(x);
  b:= 0; i:=0;
  while x > 0 do begin
    b:= b + x mod 10;
    x:= x div 10;
    i:= i + 1;
  end;
  writeln(i);
  writeln(b);
end.
   x = input()
   b = 0
   i = 0
   while x > 0:
     b += x % 10
     x //= 10
     i += 1
   print(i)
   print(b)
Ответ:
Решение:
   
1651 ege20 Дополнительный счетчик
Получив на вход число x, этот алгоритм печатает число M. Известно, что x > 100. Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 2.
var x, a, b, i, c: integer;
begin
  readln(x);
  a:= 0; b:= 0; i:=0; c:=0;
  while x > 0 do begin
    i:= i + 1;
    if i mod 2  = 0 then a:= a + c
    else b:= b + c;
    c:= x mod 10;
    x:= x div 10;
  end;
  writeln(a);
  writeln(b);
end.
   x = input()
   a= 0
   b= 0
   i=0
   c=0
   while x > 0:
     i= i + 1
     if i % 2  == 0:
       a += c
     else:
       b += c
     c= x % 10
     x= x // 10
   print(a)
   print(b)
Ответ:
Решение:
   
Разница между последним и минимальным ( 2 )

1635 ege20 Разница между последним и минимальным
Укажите наименьшее из таких чисел х, при вводе которых алгоритм печатает сначала 4, а потом 3.
var x, i, K, R, y: integer;
begin
  readln(x);
  K := 0; R := 9;
  y := x mod 10; 
  while x > 0 do begin
    K := K + 1;
    if R > x mod 10 then
      R := x mod 10;
    x := x div 10
  end;
  R := y - R; 
  writeln(K); writeln(R)
end.
   x = input()
   K = 0
   R = 9
    y = x % 10
   while x > 0:
     K = K + 1
     if R > x % 10:
       R = x % 10
     x = x // 10
    R = y - R
   print(K)
   print(R)
Ответ:
Решение:
   
1636 ege20 Разница между последним и минимальным
Укажите наибольшее из таких чисел х, при вводе которых алгоритм печатает сначала 3, а потом 7.
var x, i, K, R, y: integer;
begin
  readln(x);
  K := 0; R := 9;
  y := x mod 10; 
  while x > 0 do begin
    K := K + 1;
    if R > x mod 10 then
      R := x mod 10;
    x := x div 10
  end;
  R := y - R; 
  writeln(K); writeln(R)
end.
   x = input()
   K = 0
   R = 9
    y = x % 10
   while x > 0:
     K = K + 1
     if R > x % 10:
       R = x % 10
     x = x // 10
    R = y - R
   print(K)
   print(R)
Ответ:
Решение:
   
Больше и меньше ( 6 )

1661 ege20 Больше и меньше
Укажите наименьшее положительное пятизначное число x, при котором после выполнения алгоритма будет напечатано сначала 5, а потом 2.
var x, y, a, b: integer;
begin
  a := 0;
  b := 10;
  readln(x);
  while x > 0 do begin
    y := x mod 10;
    x := x div 10
    if y > a then a := y;
    if y < b then b := y;
  end;
  writeln(a);
  writeln(b)
end.
   a = 0
   b = 10
   x = input()
   while x > 0:
     y = x % 10
     x = x // 10
     if y > a:
       a = y
     if y < b:
       b = y
   print(a)
   print(b)
Ответ:
Решение:
   
1662 ege20 Больше и меньше
Укажите наименьшее пятизначное число x, при вводе которого алгоритм печатает сначала 5, а потом 3.
var x, y, a, b: longint;
begin
  a := 0;
  b := 0;
  readln(x);
  while x > 0 do begin
    y := x mod 10;
    if y > 3 then a := a + 1;
    if y < 8 then b := b + 1;
    x := x div 10
  end;
  writeln(a);
  writeln(b)
end.
   a = 0
   b = 0
   x = input()
   while x > 0:
     y = x % 10
     if y > 3:
       a += 1
     if y < 8:
       b += 1
     x = x // 10
   print(a)
   print(b)
Ответ:
Решение:
   
1663 ege20 Больше и меньше
Укажите набольшее пятизначное число x, при вводе которого алгоритм печатает сначала 4, а потом 3.
var x, y, a, b: longint;
begin
  a := 0;
  b := 0;
  readln(x);
  while x > 0 do begin
    y := x mod 10;
    if y > 3 then a := a + 1;
    if y < 8 then b := b + 1;
    x := x div 10
  end;
  writeln(a);
  writeln(b)
end.
   a = 0
   b = 0
   x = input()
   while x > 0:
     y = x % 10
     if y > 3:
       a += 1
     if y < 8:
       b += 1
     x = x // 10
   print(a)
   print(b)
 
Ответ:
Решение:
   
1664 ege20 Больше и меньше
Укажите набольшее пятизначное число x, при вводе которого алгоритм печатает сначала 5, а потом 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.
   a = 0
   b = 0
   x = input()
   while x > 0:
     y = x % 10
     if y > 4:
       a += 1
     if y < 6:
       b += 1
     x = x // 10
   print(a)
   print(b)
Ответ:
Решение:
   
1665 ege20 Больше и меньше
Укажите наименьшее пятизначное число 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.
   a = 0
   b = 0
   x = input()
   while x > 0:
     y = x % 10
     if y > 4:
       a += 1
     if y < 6:
       b += 1
     x = x // 10
   print(a)
   print(b)
Ответ:
Решение:
   
1666 ege20 Больше и меньше
Укажите наименьшее пятизначное число x, при вводе которого алгоритм печатает сначала 2, а потом 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 > 3 then a := a + 1;
    if y < 7 then b := b + 1;
    x := x div 10
  end;
  writeln(a);
  writeln(b)
end.
   a = 0
   b = 0
   x = input()
   while x > 0:
     y = x % 10
     if y > 3:
       a += 1
     if y < 7:
       b += 1
     x = x // 10
   print(a)
   print(b)
Ответ:
Решение:
   
1667 ege20 Больше и меньше
Укажите набольшее пятизначное число x, при вводе которого алгоритм печатает сначала 2, а потом 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 < 7 then b := b + 1;
    x := x div 10
  end;
  writeln(a);
  writeln(b)
end.
   a = 0
   b = 0
   x = input()
   while x > 0:
     y = x % 10
     if y > 4:
       a += 1
     if y < 7:
       b += 1
     x = x // 10
   print(a)
   print(b)
Ответ:
Решение:
   
Разное ( 12 )

1623 ege20 Разное
Укажите, сколько есть таких чисел , при вводе которых алгоритм печатает сначала 2, а потом 12.
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.
   x = input()
   a=0
   b=1
   while x > 0:
     a= a + 1
     b= b * (x % 10)
     x= x // 10
   print(a)
   print(b)
Ответ:
Решение:
   
1624 ege20 Разное
Укажите наибольшее из чисел , при вводе которых алгоритм печатает сначала 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.
   x = input()
   a=0
   b=0
   while x > 0:
     a= a + 1
     b= b + (x % 100)
     x= x // 100
   print(a)
   print(b)
 
Ответ:
Решение:
   
1625 ege20 Разное
Укажите наибольшее из чисел , при вводе которых алгоритм печатает сначала 2, а потом 8.
var x, a, b: integer;
begin
  readln(x);
  a:=0; b:=1;
  while x > 0 do begin
    a:= a + 1;
    b:= b * (x mod 100);
    x:= x div 100;
  end;
  writeln(a); write(b);
end.
   x = input()
   a=0
   b=1
   while x > 0:
     a= a + 1
     b= b * (x % 100)
     x= x // 100
   print(a)
   print(b)
Ответ:
Решение:
   
1626 ege20 Разное
Укажите наименьшее из таких чисел N, при вводе которых алгоритм напечатает 17.
var N, q, i: integer;
begin
  read(N);
  for i:=1 to N-1 do begin
    if N mod i = 0 then q:=i
  end;
  write(q)
end.
   N = input()
   for i in range(1,N):
     if N % i == 0:
       q = i
   print(q)
Ответ:
Решение:
   
1637 ege20 Разное
Укажите наименьшее из таких чисел х, при вводе которых алгоритм печатает сначала 2, а потом 13.
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.
 x = input()
 a = 0
 b = 0
 while x > 0:
   a = a+1
   b = b+(x % 100)
   x = x // 100
 print(a)
 print(b)
 
Ответ:
Решение:
   
1638 ege20 Разное
Укажите наибольшее из таких чисел х, при вводе которых алгоритм печатает сначала 2, а потом 15.
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.
 x = input()
 a = 0
 b = 0
 while x > 0:
   a = a+1
   b = b+(x % 100)
   x = x // 100
 print(a)
 print(b)
Ответ:
Решение:
   
1639 ege20 Разное
Сколько существует таких чисел, при вводе которых алгоритм печатает сначала 2, а потом 15?
var x, a, b: integer;
begin
  readln(x);
  a:=0; b:=0;
  while x>0 do begin
    a:=a + 1;
    b:=b + (x mod 10);
    x:=x div 10;
  end;
  writeln(a); write(b);
end.
   x = input()
   a=0
   b=0
   while x>0:
     a=a + 1
     b=b + (x % 10)
     x=x // 10
   print(a)
   print(b)
Ответ:
Решение:
   
1640 ege20 Разное
Укажите наименьшее из таких чисел x, при вводе которого после выполнения алгоритма будет напечатано сначала 2, а потом 22.
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.
   x = input()
   a = 0
   b = 0
   while x > 0:
     a = a+1
     b = b+(x % 100)
     x = x // 100
   print(a)
   print(b)
 
Ответ:
Решение:
   
1641 ege20 Разное
Укажите наибольшее из таких чисел x, при вводе которых алгоритм печатает сначала 2, а потом 5.
var x, a, b: integer;
begin
  readln(x);
  a := 0; b := 1;
  while x > 0 do begin
    a := a+1;
    b := b*(x mod 100);
    x := x div 100;
  end;
  writeln(a); write(b);
end.
   x = input()
   a = 0
   b = 1
   while x > 0:
     a = a+1
     b = b*(x % 100)
     x = x // 100
   print(a)
   print(b)
Ответ:
Решение:
   
1643 ege20 Разное
Сколько существует таких чисел 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.
   x = input()
   a = 0
   b = 0
   while x>0:
     a = a + 1
     b = b + (x % 100)
     x = x // 100
   print(a)
   print(b)
Ответ:
Решение:
   
1659 ege20 Разное
Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 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.
   x = input()
   a = 0
   b = 1
   while x > 0:
     a = a+2
     b = b*(x % 1000)
     x = x // 1000
   print(a)
   print(b)
Ответ:
Решение:
   
1660 ege20 Разное
Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 2, а потом 11.
var x, a, b: integer;
begin
  readln(x);
  a := 0; b := 1;
  while x > 0 do begin
    a := a+1;
    b := b*(x mod 1000);
    x := x div 1000;
  end;
  writeln(a); write(b);
end.
   x = input()
   a = 0
   b = 1
   while x > 0:
     a = a+1
     b = b*(x % 1000)
     x = x // 1000
   print(a)
   print(b)
Ответ:
Решение: