Дуже требааа до ть інформатиики інст@levujak
Завдання. Створити проект для визначення кількості та с
даного числа
ионня кількості та суми ци
Вхідні дані
Вихідні дані
а 12456
k5; S = 18
as 965
3; S = 20
1. Визначте вхідні та вихідні дані, проміжні змінні.
Вхідні: а- дане число.
Вихідні: S, k - сума та кількість цифр числа.
Проміжні змінні: С поточна остання цифра числа.
2 Уведіть код для виконання обчислень при натисканні на форму.
Dim k, s, a, c As Integer
"Ведення даного числа
a InputBox("а")
ke
S е е
While a <>
"Відокремлення останньої цифри числа
са Mod 10
"Визначення кількості цифр
kе k + 1
“Визначення суми цифр
S = 5 + с
Відкидання останньої цифри числа
as a \ 10
End while
Рgor("S" в S)
Новок ("k" 6 k)
3. Запустіть проект та перевірте правильність його роботи.
4 ренжіть проект під назвою Вправа_50 Прізвище:
ВПРАВА 60

Руслана462    2   11.04.2020 14:29    0