{* Задача346 *}

REM basic

' Написать и протестировать функцию, которая преобразует целое без знака в его восьмеричное символьное представление


Declare Function prog$ (z, u$)
u$ = "01234567"
CLS
INPUT "vvedite chislo"; z
PRINT prog$(z, u$)
 
Function prog$ (z, u$)
Do
    c$ = Mid$(u$, (z Mod 8) + 1, 1) + c$
    z = z  8
Loop Until z = 0
prog$ = c$
End Function