Question

Рассматривается множество целых чисел, принадлежащих числовому отрезку [3721; 7752], которые удовлетворяют следующим условиям:
− сумма цифр числа кратна 3;
− двоичная запись числа не заканчивается на 000.

помогите написать программу на Pascale

Answer 1

Ответ:

Поскольку в бинарной записи 000 означает 7+1, поэтому двоичная запись не заканчивается на 000 только у чисел не кратных 8:

var i:integer;

begin

   for i:=3721 to 7752 do begin

       if (i mod 8 <> 0) and (i mod 3 = 0) then write(i, ' ');

   end;

end.