Пользователь вводит трехзначное число.Выяснить,больше ли сумма его цифр 10? - Visual Basic .NET - Киберфорум

Форум программистов, компьютерный форум, киберфорум

Visual Basic .NET

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Сообщество

Заказать работу

Рейтинг 4.67/6:

Рейтинг темы: голосов - 6, средняя оценка - 4.67

@stalker9130 0 / 0 / 0 Регистрация: 19.03.2013 Сообщений: 13

	Пользователь вводит трехзначное число.Выяснить,больше ли сумма его цифр 10? 27.03.2013, 19:28. Показов 1209. Ответов 1 Метки нет (Все метки) 1. Проект состоит из двух форм. Первая форма – заставка. Вторая – визуализация решения задачи. 2. Заставка содержит следующий минимальный набор элементов: • рисунок (блок-схема); • сведения об авторе; • условия задачи; • кнопка перехода на вторую форму. 3. Форма 2 должна содержать элементы, достаточные для того, чтобы пользователь понял, какая задача решается и какие элементы куда вводятся. 4. При решении задачи обязательно объявление переменных! 0

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

27.03.2013, 19:28

Ответы с готовыми решениями:

Дано трехзначное число. Определить, какая из его цифр больше:
Дано трехзначное число. Определить, какая из его цифр больше: а) первая или последняя; б) первая или вторая; в) вторая или...

Дано трехзначное число. Вычислить есть ли его сумма цифр двухзначным число
Дано трехзначное число. Вычислить есть ли его сумма цифр двухзначным число

Дано трёхзначное число, кратна ли сумма его цифр 7?
дано трёхзначное число, кратна ли сумма его цифр 7? так, вот, значит написала program zad1; var d,n,a,s,m,p:integer; begin ...

1

Nachrichter

Аватар для Nachrichter

649 / 601 / 92

Регистрация: 19.03.2012

Сообщений: 1,128

27.03.2013, 21:45

Цитата

Сообщение от stalker9130

Посмотреть сообщение

Пользователь вводит трехзначное число.Выяснить,больше ли сумма его цифр 10?

На форме TextBox и Button. Код кнопки:

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim x As Integer = 0
For Each y As String In TextBox1.Text
    x = x + y
Next
If x > 10 Then
    TextBox1.Clear()
    MsgBox("Сумма элементов заданного числа больше 10-ти!")
ElseIf x = 10 Then
    TextBox1.Clear()
    MsgBox("Сумма элементов заданного числа равна 10-ти!")
Else
    TextBox1.Clear()
    MsgBox("Сумма элементов заданного числа меньше 10-ти!")
End If

1

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

27.03.2013, 21:45

Помогаю со студенческими работами здесь

Дано трёхзначное число,кратна ли сумма его цифр семи?
дано трёхзначное число,кратна ли сумма его цифр семи? program zad1; var n,s,i,n1 : integer; BEGIN repeat repeat ...

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

Дано трёхзначное число. Определить,какая из его трёх цифр больше.
Помогите плз как пишется на С++)

Дано трёхзначное число, является ли сумма его цифр двухзначным числом
Дано трёхзначное число, является ли сумма его цифр двухзначным числом

Дано трехзначное число. Будет ли сумма его цифр четном числом
Дано трехзначное число N. Проверить будет ли сумма его цифр четном числом. Прошу срочно помочь пожалуйста. Только без констант

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

2

Ответ

Создать тему

Новые блоги и статьи Все статьи Все блоги /
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20%	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .

Наверх