1 2 3 4 5 6 7 8 9 10 11 12 13 14 | n = 100 'nado golovc = 10000 'vsego deneg in kopeekk1 = 1000 'tsena za bikak2 = 500 'za korovuk3 = 50 'za telenkaFOR i = 0 TO c \ k1 FOR j = 0 TO c \ k2 FOR k = 0 TO c \ k3 IF i + j + k = n AND i * k1 + j * k2 * k * k3 = c THEN PRINT "Bikov:"; i; " Korov:"; j; " Telyat:"; k NEXT NEXTNEXT |
Тестирование выполнено в программе QB64 ( Скачать )