20 lines
274 B
Text
20 lines
274 B
Text
PROGRAM FLOYD
|
|
|
|
!
|
|
! for rosettacode.org
|
|
!
|
|
|
|
BEGIN
|
|
N=14
|
|
NUM=1
|
|
LAST=(N^2-N+2) DIV 2
|
|
FOR ROW=1 TO N DO
|
|
FOR J=1 TO ROW DO
|
|
US$=STRING$(LEN(STR$(LAST-1+J))-1,"#")
|
|
WRITE(US$;NUM;)
|
|
PRINT(" ";)
|
|
NUM+=1
|
|
END FOR
|
|
PRINT
|
|
END FOR
|
|
END PROGRAM
|