ZibilleРассматривается множество целых чисел, принадлежащих числовому отрезку [3721; 7752], которые удовлетворяют следующим условиям:− сумма цифр числа кратна 3;− двоичная запись числа не заканчивается на 000. посчитайте написать программу на Pascale
ответы: 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.
144
GasarЧтобы ответить необходимо зарегистрироваться.
