Музалёв Николай » 22 июл 2002, 14:14
Слюнявя старые журналы, наткнулся на сл. задачу и озверел, что не смог её решить по человечески:
ДЛЯ конторы купили стулья(С), табуретки(Т) и конторские книги (К). всего купили 100 предметов. Всего заплатили 100 рублей (во цены были!!) .
Цены на предметы этой непервой необх. были такие
Стулья - по 7 руб.
Табуреты - по 3 руб.
Книги - по 0.5 руб.
Вопрос-чего сколько купили????
Ну так ничего более умного как это в голову не пришло:
program zadacha
integer c, t, k, sum, stu
* ┌─────────────────────────────────────┐
* │ c --> стул стоит 7 рублей │
* │ t --> табуретка стоит 3 рубля │
* │ k --> книга стоит 50 копеек │
* └─────────────────────────────────────┘
* -----------------------------------------------------------
C стулья
do 1 c=1,100
C табуретки
do 1 t=1,100
C книги. Из логики задачи видно, что книгдолжно
C быть четное количество для получения рубля
do 1 k=0,100,2
C всего 100 штук
stu=c+t+k
C за все 100 рублей
sum=7*c+3*t+(k/2)
C и сумма и штуки должны быть == 100
if(stu.EQ.100.AND.sum.EQ.100) write(*,3) c,t,k
1 continue
* -----------------------------------------------------------
stop
3 format(///10x,'Стул = ', i2,' Табуретка = ',i2,' Книга = ',i2)
end
Вопрос же в том, кобразом это решалось в эпоху доисторического компьютеризма, а?
И отдельный вопрос Белякову - а куда делись мои отступа в коде??
armoracia rusticana (lat.), "блины" и "фиги" всех видов, а также смайлики - крайне не желательны !