Программа для перевода из 10 СС в 5 СС - VB
Формулировка задачи:
Помогите написать прогу для перевода из 10 с/с в 5 с/с
Решение задачи: «Программа для перевода из 10 СС в 5 СС»
textual
Листинг программы
Function dec2fif(A As Integer) As String Do While (A > 0) dec2fif = CStr(A Mod 5) & dec2fif A = A \ 5 Loop End Function