Благодарность есть в "Войне и мире"" Ранее Карениной "Преступлении и наказании"Отцах и детях"и " Капитанской дочке (в этих произведениях кто выражает благодарность).
Если число кратно 72, то оно должно быть чётным и делиться на 9 и 4. Значит, последняя цифра как минимум чётная. Теперь займёмся подбором цифр: 8 можно разложить на 8*1, 4*2 и 2*2*2. Значит, остальные цифры - единицы. Сумма цифр должна делиться на 9, значит, остаётся только вариант 1*1*1*4*2. Методом подбора получаем число 14112 или 41112. ответ: 14112 или 41112
var
a,b,i,count:integer;
begin
i:=100;
repeat
b:=i;
a:=1;
while b>0 do
begin
a:=a * (b mod 10);
b:=b div 10;
end;
if a < 8 then
begin
inc(count);
write(i:4);
end;
inc(i);
until i>=999;
writeln;
writeln('Count: ',count);
end.
var
a,b,i,count:integer;
begin
i:=100;
repeat
b:=i;
a:=1;
while b>0 do
begin
a:=a * (b mod 10);
b:=b div 10;
end;
if a < 8 then
begin
inc(count);
write(i:4);
end;
inc(i);
until i>=999;
writeln;
writeln('Count: ',count);
end.
var
a,b,i,count:integer;
begin
i:=100;
repeat
b:=i;
a:=1;
while b>0 do
begin
a:=a * (b mod 10);
b:=b div 10;
end;
if a < 8 then
begin
inc(count);
write(i:4);
end;
inc(i);
until i>=999;
writeln;
writeln('Count: ',count);
end.
var
a,b,i,count:integer;
begin
i:=100;
repeat
b:=i;
a:=1;
while b>0 do
begin
a:=a * (b mod 10);
b:=b div 10;
end;
if a < 8 then
begin
inc(count);
write(i:4);
end;
inc(i);
until i>=999;
writeln;
writeln('Count: ',count);
end.
" "
* *
)
<
Теперь займёмся подбором цифр: 8 можно разложить на 8*1, 4*2 и 2*2*2. Значит, остальные цифры - единицы. Сумма цифр должна делиться на 9, значит, остаётся только вариант 1*1*1*4*2. Методом подбора получаем число 14112 или 41112.
ответ: 14112 или 41112