Помогите решить задачку плиз...

[Создатель]

Надо написать программу, которая запрашивает ввести пользователя одно число, состоящее и 5 цифр, разделяет это число на отдельные цифры, и выводит их на экран...
допустим число 25343, надо сделать, чтоб на экране отобразилось что-то вроде "первая цифра-2, вторая-5 и т.д.
Зы: все это надо сделать в консольном приложении....

[GSerg]

Такая маленькая аккуратненькая приписочка

Язык важен?

[Faust]

Так бы задачку и формулировал: нужно консольное приложение на VB... А разбиение числа на цифры - это задача хрестоматийная:

Код: Выделить всё

Sub Example()
Dim A As Long, S As String, I As Byte
m1:
A=InputBox("Введите пятизначное число")
If A<>Round(A) Then Goto m1
If A>99999 Then Goto m1
If A<10000 Then Goto m1
S=""
For I=4 to 0 step -1
S=S & String(I+1) & "-я цифра -" & String(A mod 10) & vbCrLf
A=A\10
Next I
MsgBox S
End Sub

Или так...

Код: Выделить всё

Sub Example()
Dim A As String, S As String, I As Byte
m1:
A=InputBox("Введите пятизначное число")
If Len(A)<>5 then goto m1
If Val(A)<10000 then goto m1
If Val(A)>99999 then goto m1
S=""
For I = 1 to 5
S=S & String(I) & "-я цифра - " & Mid$(A,I,1) & vbCrLf
Next I
End Sub


Или так, для извращенцев :

Код: Выделить всё

Dim A As String, S As String, I As Byte
m1:
A=InputBox("Введите пятизначное число")
For I = 5 to 1 step -1
Select Case I
Case 1: S=S & "Перва"
Case 2: S=S & "Втора"
Case 3: S=S & "Треть"
Case 4: S=S & "Четверта"
Case 5: S=S & "Пята"
End Select
S=S & "я цифра - "
Select Case Asc(Mid$(A,I,1))-Asc("0")
Case 0:
If I=1 Then Goto m1
S=S & "ноль"
Case 1: S=S & "едениц"
Case 2: S=S & "двойк"
Case 3: S=S & "тройк"
Case 4: S=S & "четверк"
Case 5: S=S & "пятерк"
Case 6: S=S & "шестерк"
Case 7: S=S & "семерк"
Case 8: S=S & "восьмерк"
Case 9: S=S & "девятк"
CaseElse: Goto m1
End Select
S=S & "а" & vbCrLf
Next I
MsgBox S
End Sub

Эдак меня...
ЗЫ. 2GSrerg: да, я тоже в начале хотел Паскаль или Асемблер посоветовать...

[Создатель]

Спасибки...извиняйте за неясность....