var x, k, a, b, d: integer;. readln(x);. while x > 0 do begin. if d = k then a := a+1;. writeln(a, ' ', b). 1. Прибавь 1. 2. Прибавь 3. 3. Умножь на 2

⇐ ПредыдущаяСтр 3 из 3

var x, k, a, b, d: integer;

begin

readln(x);

k: = x mod 8;

a: = 0; b: = 0;

while x > 0 do begin

d: = x mod 8;

if d = k then a: = a+1;

b: = b + d;

x: = x div 8

end;

writeln(a, ' ', b)

end.

23) Ниже записана программа, которая вводит натуральное число x, выполняет преобразования, а затем выводит два числа. Укажите наименьшее возможное значение x, при вводе которого программа Исполнитель Калькулятор преобразует число, записанное на экране. У исполнителя есть три команды, которым присвоены номера:

1. Прибавь 1

2. Прибавь 3

3. Умножь на 2

Сколько существует программ, которые преобразуют исходное число 3 в число 21, и при этом траектория вычислений содержит число 8 и не содержит числа 12?

24) ---

25) Найдите все натуральные числа, принадлежащие отрезку [55 000 000; 60 000 000], у которых ровно пять различных нечётных делителей (количество чётных делителей может быть любым). В ответе перечислите найденные числа, справа от каждого числа запишите его наибольший нечётный делитель.

26) ---

27) Имеется набор данных, состоящий из пар положительных целых чисел. Необходимо выбрать из каждой пары ровно одно число так, чтобы сумма всех выбранных чисел оканчивалась на 8 и при этом была максимально возможной. Гарантируется, что искомую сумму получить можно. Программа должна напечатать одно число – максимально возможную сумму, соответствующую условиям задачи.

Входные данные: Даны два входных файла: файл A (27-21a. txt) и файл B (27-21b. txt), каждый из которых содержит в первой строке количество пар N (1 ≤ N ≤ 100000). Каждая из следующих N строк содержит два натуральных числа, не превышающих 10 000.

Пример входного файла:

1 3

5 12

6 9

5 4

3 3

5 1

Для указанных входных данных значением искомой суммы должно быть число 28.

В ответе укажите два числа: сначала значение искомой суммы для файла А, затем для файла B.

⇐ Предыдущая 1 23