программа "число"

@Антон_smash95 · Регистрация: 20.04.2011

Author24 — интернет-сервис помощи студентам

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

@gaw · 20.04.2011, 21:59

Visual Basic

Private Sub Command1_Click()
z = 1234
Print z
zn = z Mod 10
S = 0: P = 1
Do While z > 0
zo = z Mod 10
S = S + zo
P = P * zo
z1 = z
z = z \ 10
Loop
 
Print "z1="; z1; "   zn="; zn; "  S="; S; "  P="; P
End Sub

Сообщение от Антон_smash95

разность всех цифр

нет в коде , не понимаю потому что

@Антон_smash95 0 / 0 / 0 Регистрация: 20.04.2011 Сообщений: 5
		1
	программа "число" 20.04.2011, 18:48. Показов 504. Ответов 1 Метки нет (Все метки) Помогите написать программу, которая выводит в введенном числе первую цифру, последнюю цифру, сумму всех цифр, разность всех цифр, произведение всех цифр 0

	20.04.2011, 21:59