yourdomain.com

lavlutik писал(а):Source of the post
Вот цифры! Нужно сложить несколько из них, чтобы получилось 2401,2!!! Помогите найти эти цифры если они есть! Я уже устал подбирать.

kiv писал(а):Source of the post
Ближайшее - 2401,9: 30.5+293.2+377.8+928.1+772.3

program A
Real S
integer a1,a2,a3,a4,a5,a6,a7,a8,a9
print *,'30.5+108.2+236.9+293.2+338.5+377.8+532.1+772.3+928.1'
S=0
do 9 a9=0, 1
do 8 a8=0, 1
do 7 a7=0, 1
do 6 a6=0, 1
do 5 a5=0, 1
do 4 a4=0, 1
do 3 a3=0, 1
do 2 a2=0, 1
do 1 a1=0, 1
S=30.5*a1 + 108.2*a2+ 236.9*a3+ 293.2*a4+338.5*a5+377.8*a6+
532.1*a7+772.3*a8+ 928.1*a9
if ( (S-2403)*(S-2400)<0) then print *,a1,a2,a3,a4,a5,a6,a7,a8,a9,S end if 1 continue 2 continue 3 continue 4 continue 5 continue 6 continue 7 continue 8 continue 9 continue end

1 0 0 1 0 1 0 1 1 --2401.8999
1 1 1 1 0 0 1 1 1 --2401.30005

balans писал(а):Source of the post
Интересно, можно ли эту программу улучшить?

balans писал(а):Source of the post Интересно, можно ли эту программу улучшить?

zykov писал(а):Source of the post

balans писал(а):Source of the post Интересно, можно ли эту программу улучшить?

Можно вместо девяти циклов сделать один от 0 до 511 и в качестве флагов использовать 9 битов этого счётчика.

kiv писал(а):Source of the post Плохо - надо разбирать число на биты...

zykov писал(а):Source of the post

kiv писал(а):Source of the post Плохо - надо разбирать число на биты...

Почему "плохо"?
Вообще "хорошо-плохо" - оно вещи относительные.
В данном случае код будет короче и прозрачнее.