nez ([info]nez) rakstīja [info]hamlets kopienā,


---
INPUT "Ievadi skaitli: ", sk
SCREEN 12
DIM mas(640)
mas(0) = 1
FOR k = 1 TO 479
mas(k - 1) = 1
FOR n = k - 1 TO 1 STEP -1
mas(n) = (mas(n) + mas(n - 1)) MOD sk
IF mas(n) = 0 THEN PSET (n + (320 - k / 2), k), 14
NEXT
NEXT
---

(Lasīt komentārus)

Nopūsties:

No:
( )Anonīms- ehh.. šitajam cibiņam netīk anonīmie, nesanāks.
Lietotājvārds:
Parole:
Temats:
Tematā HTML ir aizliegts
  
Ziņa:

Gandrīz jau aizmirsu pateikt – šis lietotājs ir ieslēdzis IP adrešu noglabāšanu. Operatore Nr. 65.
Neesi iežurnalējies. Iežurnalēties?