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