Список проголосовавших за комментарий "Решаем ребус УДАР+УДАР=ДРАКА через массив <br/> <br/> ' dadraka.bas<br/> <br/> start = TIMER<br/> <br/> DIM a(5)<br/> <br/> FOR u = 1 TO 9: a(1) = u<br/> FOR d = 1 TO 9: a(2) = d<br/> FOR a = 0 TO 9: a(3) = a<br/> FOR r = 0 TO 9: a(4) = r<br/> FOR k = 0 TO 9: a(5) = k<br/> <br/> FOR x = 1 TO 4<br/> FOR y = x + 1 TO 5<br/> IF a(x) = a(y) THEN GOTO 55<br/> NEXT y: NEXT x<br/> <br/> udar = 1000 * u + 100 * d + 10 * a + r<br/> draka = d * 10000 + r * 1000 + a * 100 + k * 10 + a<br/> <br/> IF udar + udar = draka THEN PRINT udar, draka<br/> <br/> 55 NEXT k: NEXT r: NEXT a: NEXT d: NEXT u<br/> <br/> finish = TIMER<br/> <br/> PRINT finish