Задачи из задания 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)
Ответ:
Решение:
   
Количество чисел ( 2 )

_

4322 ege20 Количество чисел
Получив на вход число x, этот алгоритм печатает два числа a и b. Сколько существует таких чисел x, при вводе которых алгоритм печатает сначала 2, а потом 0?
var x, a, b: longint;
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 = int(input())
a = 0; b = 1
while x > 0:
  a = a + 1
  b = b*(x%10)
  x = x//10
print(a,"\n",b)
#include
int main()
{
  int x, a, b;
  scanf("%d", &x);
  a = 0; b = 1;
  while (x > 0){
    a = a+1;
    b = b*(x%10);
    x = x/10;
  }
  printf("%d\n%d", a, b);
  return 0;
}
Ответ:
Решение:
   
4321 ege20 Количество чисел
Получив на вход число x, этот алгоритм печатает два числа a и b. Сколько существует таких чисел x, при вводе которых алгоритм печатает сначала 2, а потом 24?
var x, a, b: longint;
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 = int(input())
a = 0; b = 1
while x > 0:
  a = a + 1
  b = b*(x%10)
  x = x//10
print(a,"\n",b)
#include
int main()
{
  int x, a, b;
  scanf("%d", &x);
  a = 0; b = 1;
  while (x > 0){
    a = a+1;
    b = b*(x%10);
    x = x/10;
  }
  printf("%d\n%d", a, b);
  return 0;
}
Ответ:
Решение:
   
Через НЕдесятиричную систему ( 29 )

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)
Ответ:
Решение:
   
4335 ege20 Через НЕдесятиричную систему
Укажите наибольшее трёхзначное натуральное число, при вводе которого эта программа напечатает сначала 2, потом – 7.
var x, a, b: longint;
begin
  readln(x);
  a := 0; b := 1;
  while x > 0 do 
  begin
    if x mod 2 > 0 then
      a := a + x mod 6
    else
      b := b + (x mod 6);
    x := x div 6;
  end;
  writeln(a); write(b);
end.
x = int(input())
a=0; b=1
while x > 0:
  if x%2 > 0:
    a += x%6
  else:
    b += x%6
  x = x//6
print(a, b)
#include 
using namespace std;
int main()
  {
  int x, a, b;
  cin >> x;
  a = 0; b = 1;
  while (x > 0) {
    if (x%2 > 0) a += x%6;
    else b *= x%6;
    x = x / 6;
    }
  cout << a << endl << b << endl;
  return 0;
} 
Ответ:
Решение:
   
4334 ege20 Через НЕдесятиричную систему
Укажите наименьшее натуральное число, при вводе которого эта программа напечатает сначала 2, потом – 24.
var x, a, b: longint;
begin
  readln(x);
  a := 0; b := 1;
  while x > 0 do 
  begin
    if x mod 2 > 0 then
      a := a + x mod 8
    else
      b := b * (x mod 8);
    x := x div 8;
  end;
  writeln(a); write(b);
end.
x = int(input())
a=0; b=1
while x > 0:
  if x%2 > 0:
    a += x%8
  else:
    b *= x%8
  x = x//8
print(a, b)
#include 
using namespace std;
int main()
  {
  int x, a, b;
  cin >> x;
  a = 0; b = 1;
  while (x > 0) {
    if (x%2 > 0) a += x%8;
    else b *= x%8;
    x = x / 8;
    }
  cout << a << endl << b << endl;
  return 0;
} 
Ответ:
Решение:
   
4333 ege20 Через НЕдесятиричную систему
Укажите наибольшее трёхзначное натуральное число, при вводе которого эта программа напечатает сначала 2, потом – 8.
var x, a, b: longint;
begin
  readln(x);
  a := 0; b := 1;
  while x > 0 do 
  begin
    if x mod 2 > 0 then
      a := a + x mod 8
    else
      b := b * (x mod 8);
    x := x div 8;
  end;
  writeln(a); write(b);
end.
x = int(input())
a=0; b=1
while x > 0:
  if x%2 > 0:
    a += x%8
  else:
    b *= x%8
  x = x//8
print(a, b)
#include 
using namespace std;
int main()
  {
  int x, a, b;
  cin >> x;
  a = 0; b = 1;
  while (x > 0) {
    if (x%2 > 0) a += x%8;
    else b *= x%8;
    x = x / 8;
    }
  cout << a << endl << b << endl;
  return 0;
} 
Ответ:
Решение:
   
4332 ege20 Через НЕдесятиричную систему
Укажите наибольшее натуральное число, при вводе которого эта программа напечатает сначала 14, потом – 3.
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 + x mod 8;
    x := x div 8
  end;
  writeln(L);
  writeln(M)
end.
x = int(input())
L = 0
M = 0
while x > 0:
  M = M + 1
  if x % 2 != 0:
    L = L + x % 8
  x = x // 8
print(L)
print(M)
#include 
using namespace std;
int main(){
  int x, L, M;
  cin >> x;
  L = 0;
  M = 0;
  while (x > 0) {
    M = M + 1;
    if(x % 2 != 0) 
      L = L + x % 8;
    x = x / 8;
    }
  cout << L << endl << M << endl;
  return 0;
}
Ответ:
Решение:
   
4331 ege20 Через НЕдесятиричную систему
Укажите наибольшее натуральное число, при вводе которого эта программа напечатает сначала 3, потом – 6.
var x, L, M: integer;
begin
  readln(x);
  L:=0; M:=0;
  while x > 0 do 
  begin
    L:=L + 1;
    if (x mod 8) <> 0 then
      M:= M + x mod 8;
    x:= x div 8;
  end;
  writeln(L); write(M);
end.
x = int(input())
L = 0
M = 0
while x > 0:
  L = L + 1
  if (x % 8) != 0:
    M = M + x % 8
  x = x // 8
print(L)
print(M)
#include 
int main(void)
{
  int L, M, x;
  cin >> x;
  L = 0; M = 0;
  while (x > 0) {
    L = L + 1;
    if (x % 8 != 0) 
      M = M + x % 8;
    x = x / 8;
    }
  cout << L << " " << M;
}
Ответ:
Решение:
   
4330 ege20 Через НЕдесятиричную систему
Укажите наименьшее натуральное число, при вводе которого эта программа напечатает сначала 2, потом – 7.
var x, a, b: longint;
begin
  readln(x);
  a := 0; b := 0;
  while x > 0 do 
  begin
    if x mod 2 = 0 then
      a := a + 1
    else
      b := b + x mod 4;
    x := x div 4;
  end; 
  writeln(a); write(b);
end.
x = int(input())
a=0; b=0
while x > 0:
  if x%2 == 0:
    a += 1
  else:
    b += x%4
  x = x//4
print(a, b)
#include 
using namespace std;
int main()
{
  int x, a, b;
  cin >> x;
  a = 0; b = 0;
  while (x > 0) {
    if (x%2 == 0) a += 1;
    else b += x%4;
    x = x / 4;
    }
  cout << a << endl << b << endl;
  return 0;
}
Ответ:
Решение:
   
4347 ege20 Через НЕдесятиричную систему
Ниже приведён алгоритм. Укажите наименьшее число, при вводе которого алгоритм напечатает число, большее, чем 10300.
var x, d, x0, N: longint;
begin
  readln(x);
  x0 := x; N := 0;
  while x > 0 do 
  begin
    d := x mod 4;
    N := 10*N + d;
    x := x div 4  
  end;
  N := N + x0;
  writeln(N);
end.
x = int(input())
x0 = x
N = 0
while x > 0:
  d = x % 4
  N = 10*N + d
  x = x // 4
N += x0
print(N)
Ответ:
Решение:
   
4328 ege20 Через НЕдесятиричную систему
Укажите наименьшее натуральное число, при вводе которого эта программа напечатает сначала 2, потом – 6.
var x, a, b: longint;
begin
  readln(x);
  a := 0; b := 0;
  while x > 0 do 
  begin
    if x mod 2 = 0 then
      a := a + 1
    else
      b := b + x mod 6;
    x := x div 6;
  end; 
  writeln(a); write(b);
end.
x = int(input())
a=0; b=0
while x > 0:
  if x%2 == 0:
    a += 1
  else:
    b += x%6
  x = x//6
print(a, b)
#include 
using namespace std;
int main()
{
  int x, a, b;
  cin >> x;
  a = 0; b = 0;
  while (x > 0) {
    if (x%2 == 0) a += 1;
    else b += x%6;
    x = x / 6;
    }
  cout << a << endl << b << endl;
  return 0;
}
Ответ:
Решение:
   
4327 ege20 Через НЕдесятиричную систему
Укажите наименьшее натуральное число, при вводе которого эта программа напечатает сначала 1, потом – 4.
var x, a, b: longint;
begin
  readln(x);
  a := 0; b := 0;
  while x > 0 do 
  begin
    if x mod 2 = 0 then
      a := a + 1
    else
      b := b + x mod 6;
    x := x div 6;
  end; 
  writeln(a); write(b);
end.
x = int(input())
a=0; b=0
while x > 0:
  if x%2 == 0:
    a += 1
  else:
    b += x%6
  x = x//6
print(a, b)
#include 
using namespace std;
int main()
{
  int x, a, b;
  cin >> x;
  a = 0; b = 0;
  while (x > 0) {
    if (x%2 == 0) a += 1;
    else b += x%6;
    x = x / 6;
    }
  cout << a << endl << b << endl;
  return 0;
}
Ответ:
Решение:
   
4326 ege20 Через НЕдесятиричную систему
Укажите количество двузначных натуральных чисел, при вводе которых приведенная ниже программа напечатает число, отличное от 0.
var
  i, n: longint;
begin
  i := 0;
  readln(n);
  while (n > 0) do
  begin
    i := i + n mod 9;
    n := n div 9;
  end;
  writeln(i mod 8);
end.
n = int(input())
i = 0
while n > 0:
  i = i + n % 9
  n = n // 9
printf(i % 8)
#include
int main()
{
  int i, n;
  scanf("%d", &n);
  i = 0;
  while ( n > 0) {
    i = i + n % 9;
    n = n / 9;
    }
  printf("%d", i % 8);
  return 0;
}
Ответ:
Решение:
   
4325 ege20 Через НЕдесятиричную систему
Укажите количество двузначных натуральных чисел, при вводе которых приведенная ниже программа напечатает число 0.
var
  i, n: longint;
begin
  i := 0;
  readln(n);
  while (n > 0) do
  begin
    i := i + n mod 8;
    n := n div 8;
  end;
  writeln(i mod 7);
end.
n = int(input())
i = 0
while n > 0:
  i = i + n % 8
  n = n // 8
printf(i % 7)
#include
int main()
{
  int i, n;
  scanf("%d", &n);
  i = 0;
  while ( n > 0) {
    i = i + n % 8;
    n = n / 8;
    }
  printf("%d", i % 7);
  return 0;
}
Ответ:
Решение:
   
4324 ege20 Через НЕдесятиричную систему
Укажите наименьшее трехзначное натуральное число, при вводе которого приведенная ниже программа напечатает число 0.
var
  i, n: longint;
begin
  i := 0;
  readln(n);
  while (n > 0) do
  begin
    i := i + n mod 20;
    n := n div 20;
  end;
  writeln(i mod 19);
end.
n = int(input())
i = 0
while n > 0:
  i = i + n % 20
  n = n // 20
printf(i % 19)
#include
int main()
{
  int i, n;
  scanf("%d", &n);
  i = 0;
  while ( n > 0) {
    i = i + n % 20;
    n = n / 20;
    }
  printf("%d", i % 19);
  return 0;
}
Ответ:
Решение:
   
4323 ege20 Через НЕдесятиричную систему
Укажите наибольшее двузначное натуральное число, при вводе которого приведенная ниже программа напечатает число 0.
var
  i, n: longint;
begin
  i := 0;
  readln(n);
  while (n > 0) do
  begin
    i := i + n mod 16;
    n := n div 16;
  end;
  writeln(i mod 15);
end.
n = int(input())
i = 0
while n > 0:
  i = i + n % 16
  n = n // 16
printf(i % 15)
#include
int main()
{
  int i, n;
  scanf("%d", &n);
  i = 0;
  while ( n > 0) {
    i = i + n % 16;
    n = n / 16;
    }
  printf("%d", i % 15);
  return 0;
}
Ответ:
Решение:
   
4329 ege20 Через НЕдесятиричную систему
Укажите наименьшее натуральное число, при вводе которого эта программа напечатает сначала 1, потом – 5.
var x, a, b: longint;
begin
  readln(x);
  a := 0; b := 0;
  while x > 0 do 
  begin
    if x mod 2 = 0 then
      a := a + 1
    else
      b := b + x mod 4;
    x := x div 4;
  end; 
  writeln(a); write(b);
end.
x = int(input())
a=0; b=0
while x > 0:
  if x%2 == 0:
    a += 1
  else:
    b += x%4
  x = x//4
print(a, b)
#include 
using namespace std;
int main()
{
  int x, a, b;
  cin >> x;
  a = 0; b = 0;
  while (x > 0) {
    if (x%2 == 0) a += 1;
    else b += x%4;
    x = x / 4;
    }
  cout << a << endl << b << endl;
  return 0;
}
Ответ:
Решение:
   
4346 ege20 Через НЕдесятиричную систему
Ниже приведён алгоритм. Укажите наименьшее число, при вводе которого алгоритм напечатает число, большее 10200.
var x, d, x0, N: longint;
begin
  readln(x);
  x0 := x; N := 0;
  while x > 0 do 
  begin
    d := x mod 5;
    N := 10*N + d;
    x := x div 5  
  end;
  N := N + x0;
  writeln(N);
end.

x = int(input())
x0 = x
N = 0
while x > 0:
  d = x % 5
  N = 10*N + d
  x = x // 5
N += x0
print(N)
Ответ:
Решение:
   
4345 ege20 Через НЕдесятиричную систему
Ниже приведён алгоритм. Укажите наименьшее из таких чисел, при вводе которого алгоритм напечатает шестизначное число.
var x, d, x0, N: longint;
begin
  readln(x);
  x0 := x; N := 0;
  while x > 0 do 
  begin
    d := x mod 3;
    N := 10*N + d;
    x := x div 3  
  end;
  N := N + x0;
  writeln(N);
end.
x = int(input())
x0 = x
N = 0
while x>0:
  d = x % 3
  N = 10*N + d
  x = x // 3
N += x0
print(N)
Ответ:
Решение:
   
4344 ege20 Через НЕдесятиричную систему
Ниже приведён алгоритм. Укажите наименьшее из таких чисел, при вводе которого алгоритм напечатает пятизначное число.
var x, d, x0, N: longint;
begin
  readln(x);
  x0 := x; N := 0;
  while x > 0 do 
  begin
    d := x mod 3;
    N := 10*N + d;
    x := x div 3  
  end;
  N := N + x0;
  writeln(N);
end.
x = int(input())
x0 = x
N = 0
while x>0:
  d = x % 3
  N = 10*N + d
  x = x // 3
N += x0
print(N)
Ответ:
Решение:
   
4343 ege20 Через НЕдесятиричную систему
Ниже приведён алгоритм. Укажите наименьшее из таких чисел, при вводе которого алгоритм напечатает четырёхзначное число.
var x, d, x0, N: longint;
begin
  readln(x);
  x0 := x; N := 0;
  while x > 0 do 
  begin
    d := x mod 3;
    N := 10*N + d;
    x := x div 3  
  end;
  N := N + x0;
  writeln(N);
end.
x = int(input())
x0 = x
N = 0
while x>0:
  d = x % 3
  N = 10*N + d
  x = x // 3
N += x0
print(N)
Ответ:
Решение:
   
4342 ege20 Через НЕдесятиричную систему
Ниже приведён алгоритм. Укажите наименьшее из таких чисел, при вводе которого алгоритм напечатает пятизначное число.
var x, d, x0, N: longint;
begin
  readln(x);
  x0 := x; N := 0;
  while x > 0 do 
  begin
    d := x mod 2;
    N := 10*N + d;
    x := x div 2  
  end;
  N := N + x0;
  writeln(N);
end.
x = int(input())
x0 = x
N = 0
while x>0:
  d = x % 2
  N = 10*N + d
  x = x // 2
N += x0
print(N)
Ответ:
Решение:
   
4341 ege20 Через НЕдесятиричную систему
Ниже приведён алгоритм. Укажите наименьшее из таких чисел, при вводе которого алгоритм напечатает четырёхзначное число.
var x, d, x0, N: longint;
begin
  readln(x);
  x0 := x; N := 0;
  while x > 0 do 
  begin
    d := x mod 2;
    N := 10*N + d;
    x := x div 2  
  end;
  N := N + x0;
  writeln(N);
end.
x = int(input())
x0 = x
N = 0
while x>0:
  d = x % 2
  N = 10*N + d
  x = x // 2
N += x0
print(N)
Ответ:
Решение:
   
4336 ege20 Через НЕдесятиричную систему
Укажите наименьшее трёхзначное натуральное число, при вводе которого эта программа напечатает сначала 2, потом – 9.
var x, a, b: longint;
begin
  readln(x);
  a := 0; b := 1;
  while x > 0 do 
  begin
    if x mod 2 > 0 then
      a := a + x mod 6
    else
      b := b + (x mod 6);
    x := x div 6;
  end;
  writeln(a); write(b);
end.
x = int(input())
a=0; b=1
while x > 0:
  if x%2 > 0:
    a += x%6
  else:
    b += x%6
  x = x//6
print(a, b)
#include 
using namespace std;
int main()
  {
  int x, a, b;
  cin >> x;
  a = 0; b = 1;
  while (x > 0) {
    if (x%2 > 0) a += x%6;
    else b += x%6;
    x = x / 6;
    }
  cout << a << endl << b << endl;
  return 0;
} 
Ответ:
Решение:
   
Четные в нечетной системе ( 2 )

_

4338 ege20 Четные в нечетной системе
Укажите наименьшее трёхзначное натуральное число, при вводе которого эта программа напечатает сначала 2, потом – 9.
var x, a, b: longint;
begin
  readln(x);
  a := 0; b := 1;
  while x > 0 do 
  begin
    if x mod 2 > 0 then
      a := a + 1
    else
      b := b + (x mod 5);
    x := x div 5;
  end;
  writeln(a); write(b);
x = int(input())
a=0; b=1
while x > 0:
  if x%2 > 0:
    a += 1
  else:
    b += x%5
  x = x//5
print(a, b)
#include 
using namespace std;
int main()
  {
  int x, a, b;
  cin >> x;
  a = 0; b = 1;
  while (x > 0) {
    if (x%2 > 0) a += 1;
    else b += x%5;
    x = x / 5;
    }
  cout << a << endl << b << endl;
  return 0;
} 


                

                

                

            
Ответ:
Решение:
   
4337 ege20 Четные в нечетной системе
Укажите наибольшее трёхзначное натуральное число, при вводе которого эта программа напечатает сначала 2, потом – 6.
var x, a, b: longint;
begin
  readln(x);
  a := 0; b := 1;
  while x > 0 do 
  begin
    if x mod 2 > 0 then
      a := a + 1
    else
      b := b + (x mod 5);
    x := x div 5;
  end;
  writeln(a); write(b);
end.
x = int(input())
a=0; b=1
while x > 0:
  if x%2 > 0:
    a += 1
  else:
    b += x%5
  x = x//5
print(a, b)
#include 
using namespace std;
int main()
  {
  int x, a, b;
  cin >> x;
  a = 0; b = 1;
  while (x > 0) {
    if (x%2 > 0) a += 1;
    else b += x%5;
    x = x / 5;
    }
  cout << a << endl << b << endl;
  return 0;
} 
Ответ:
Решение:
   
Разбор по цифрам 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)
Ответ:
Решение:
   
НОД ( 13 )

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)
Ответ:
Решение:
   
4340 ege20 НОД
Ниже приведён алгоритм. Укажите наименьшее из таких чисел, большее, чем 200, при вводе которого алгоритм напечатает 50.
var x, L, M: longint;
begin
  readln(x);
  L := 2*x-20;
  M := 2*x+30;
  while L <> M do 
  begin
    if L > M then
      L := L - M
    else
      M := M - L;
  end;
  writeln(M);
end.
x = int(input())
L = 2*x-20
M = 2*x+30
while L != M:
  if L > M:
    L = L - M
  else:
    M = M - L
print(M)

Ответ:
Решение:
   
4339 ege20 НОД
Ниже приведён алгоритм. Укажите наименьшее из таких чисел, большее, чем 200, при вводе которого алгоритм напечатает 70.
var x, L, M: longint;
begin
  readln(x);
  L := 2*x-30;
  M := 2*x+40;
  while L <> M do 
  begin
    if L > M then
      L := L - M
    else
      M := M - L;
  end;
  writeln(M);
end.
x = int(input())
L = 2*x-30
M = 2*x+40
while L != M:
  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)
Ответ:
Решение:
   
Четные и нечетные ( 1 )

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)
Ответ:
Решение:
   
Больше и меньше ( 7 )

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)
Ответ:
Решение:
   
Разное ( 17 )

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)
Ответ:
Решение:
   
4316 ege20 Разное
Ниже приведён алгоритм. Укажите наибольшее число, при вводе которого алгоритм напечатает сначала 8, потом – 11.
var x, L, M, Q: longint;
begin
  readln(x);
  Q := 16;
  L := 0;
  while x >= Q do 
  begin
    L := L + 1;
    x := x - Q;
  end;
  M := x;
  if M < L then 
  begin
    M := L;
    L := x;
  end;
  writeln(L);
  writeln(M);
end.
x = int(input())
Q = 16
L = 0
while x >= Q:
  L = L + 1
  x = x - Q
M = x
if M < L:
  M = L
  L = x
print(L)
print(M)
#include
void main()
{
  int x, L, M, Q;
  scanf("%d", &x);
  Q = 16;
  L = 0;
  while (x >= Q){
    L = L + 1;
    x = x - Q;
    }
  M = x;
  if(M < L){
    M = L;
    L = x;
    }
  printf("%d\n%d", L, M);
}
Ответ:
Решение:
   
4320 ege20 Разное
Ниже приведён алгоритм. Укажите наибольшее число, при вводе которого алгоритм напечатает сначала 3, потом – 5.
var x, L, M, Q: longint;
begin
  readln(x);
  Q := 6;
  L := 0;
  while x >= Q do 
  begin
    L := L + 1;
    x := x - Q;
  end;
  M := x;
  if M < L then 
  begin
    M := L;
    L := x;
  end;
  writeln(L);
  writeln(M);
end.
x = int(input())
Q = 6
L = 0
while x >= Q:
  L = L + 1
  x = x - Q
M = x
if M < L:
  M = L
  L = x
print(L)
print(M)
#include
void main()
{
  int x, L, M, Q;
  scanf("%d", &x);
  Q = 6;
  L = 0;
  while (x >= Q){
    L = L + 1;
    x = x - Q;
    }
  M = x;
  if(M < L){
    M = L;
    L = x;
    }
  printf("%d\n%d", L, M);
}
Ответ:
Решение:
   
4317 ege20 Разное
Укажите наименьшее натуральное число, при вводе которого будет два раза напечатано число 3.
var x, a, b : longint;
begin
  read(x);
  a := 0;
  b := 1;
  while x > 0 do 
  begin
    if x mod 3 > 0 then
      a := a + 1;
    if x mod 3 > 1 then
      b := b + 1;
    x := x div 10
  end;
  writeln(a);
  writeln(b)
end.
x = int(input())
a = 0
b = 1
while x > 0:
  if x % 3 > 0:
    a += 1
  if x % 3 > 1:
    b += 1
  x = x // 10
print(a)
print(b)
#include
void main() {
  int x;
  scanf("%d", &x);
  int a = 0, b = 1;
  while (x > 0) {
    if (x % 3 > 0) a++;
    if (x % 3 > 1) b++;
    x /= 10;
    }
  printf("%d %d", a, b);
}
Ответ:
Решение:
   
4318 ege20 Разное
Ниже приведён алгоритм. Укажите наименьшее из таких чисел, при вводе которых алгоритм печатает сначала 4, а потом 15.
var x, a, b, d: longint;
begin
  a := 0; b := 0; d := 0;
  readln(x);
  while x > 0 do 
  begin
    if d mod 2 = 0 then
      a := a + x mod 10
    else
      b := b + x mod 10;
    x := x div 10;
    d := d + 1
  end;
  writeln(a);
  writeln(b);
end.
x = int(input())
a = 0; b = 0; d = 0
while x > 0:
  if d % 2 == 0:
    a += x % 10
  else:
    b += x % 10
  x = x // 10
  d += 1
print(a, b)
Ответ:
Решение:
   
4319 ege20 Разное
Ниже приведён алгоритм. Укажите наименьшее из таких чисел, при вводе которых алгоритм печатает сначала 14, а потом 12.
var x, a, b, d: longint;
begin
  a := 0; b := 0; d := 0;
  readln(x);
  while x > 0 do 
  begin
    if d mod 2 = 0 then
      a := a + x mod 10
    else
      b := b + x mod 10;
    x := x div 10;
    d := d + 1
  end;
  writeln(a);
  writeln(b);
end.
x = int(input())
a = 0; b = 0; d = 0
while x > 0:
  if d % 2 == 0:
    a += x % 10
  else:
    b += x % 10
  x = x // 10
  d += 1
print(a, b)
Ответ:
Решение:
   
Яндекс.Метрика