18 lines
302 B
Text
18 lines
302 B
Text
PROGRAM ITERATION
|
|
|
|
BEGIN
|
|
PRINT(CHR$(12);) ! CLS
|
|
INPUT(N)
|
|
LOOP
|
|
N$=MID$(STR$(N),2)
|
|
S=0
|
|
FOR I=1 TO LEN(N$) DO
|
|
A=VAL(MID$(N$,I,1))
|
|
S=S+A*A
|
|
END FOR
|
|
IF S=89 OR S=1 THEN PRINT(S;) EXIT END IF
|
|
PRINT(S;)
|
|
N=S
|
|
END LOOP
|
|
PRINT
|
|
END PROGRAM
|