Question

ПАСКАЛЬ!!! Рассматривается множество целых чисел, принадлежащих числовому отрезку [1000; 9999], запись которых в шестеричной системе имеет не более 5 цифр и закачивается на 13 или 14. Найдите количество таких чисел и максимальное из них.

Answer 1

Например, такая программа подойдёт:

var

i,m,n: integer;

begin

for i:=1000 to 9999 do

if i<7776 then // 6^5

if (i mod 36 = 9) or (i mod 36 = 10) then // 6^2; 1*6^1+3*6^0; 1*6^1+4*6^0

begin

n:=n+1;

if m<i then m:=i

end;

write('количество= ',n,'   ','максимальное= ',m);

end.

Результат работы программы:

количество= 376   максимальное= 7750

Answer 2

Для решения этой задачи мы можем перебрать все числа в заданном диапазоне и проверить их запись в шестеричной системе счисления. Затем мы будем считать количество чисел, удовлетворяющих условиям задачи, и выберем из них максимальное.

Проверим каждое число в диапазоне [1000; 9999] на соответствие условиям задачи: 1. Переведем число из десятичной системы в шестеричную и проверим, что оно имеет не более 5 цифр. 2. Проверим, что число заканчивается на 13 или 14 в шестеричной системе.

После перебора всех чисел мы получим количество чисел, удовлетворяющих условиям задачи, и выберем из них максимальное.

Давайте выполним этот алгоритм:

1. Переберем все числа от 1000 до 9999. 2. Переведем каждое число из десятичной системы в шестеричную и проверим условия задачи. 3. Подсчитаем количество чисел, удовлетворяющих условиям задачи, и найдем среди них максимальное.

После выполнения алгоритма мы получим количество чисел, удовлетворяющих условиям задачи, и найдем среди них максимальное число.

Таким образом, мы можем решить задачу и найти количество и максимальное из чисел, удовлетворяющих условиям задачи.