Resub
1

Программа пишет о числе всё...

04.05.2011, 20:53. Показов 673. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Нужно написать программу в которой вводится число а программа пишет про него все что знает... там типо четное или не четное положительное или отрицательное простое или сложное и всё в этом роде....
у меня пока что тока это. помогите плиз к пятнице надо.......
P.S. сор за орфографию и заранее спс)

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Main()
        Dim i As Integer
        Console.WriteLine("Введите число")
        i = Console.ReadLine
        Console.WriteLine("Это число")
        If i = 0 Then
            Console.WriteLine("Это 0")
        Else
        Console.WriteLine(IIf((i Mod 2) = 0, "1)Четное", "1)Не четное"))
            If i > 0 Then
                Console.WriteLine("2)Положительное")
            Else
                Console.WriteLine("2)Отрицательное")
            End If
        End If
        Console.ReadLine()
 
    End Sub
 
End Module
Добавлено через 1 час 50 минут
Ну спасите плиз......
 Комментарий модератора 
Для VB.NET есть отдельный раздел - https://www.cyberforum.ru/vb-net/
04.05.2011, 20:53
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
04.05.2011, 20:53
Ответы с готовыми решениями:

Программа пишет все на анг. языке
Нужна помошь, программа пишет все на анг.. Программирую через коде блокс, пробивал через команду SetConsoleCP(1251); ...

Почему программа не пишет все результаты?
Почему код читает данные только из первого файла и соответственно делает только 1 результат? program lab9; {$APPTYPE CONSOLE} uses ...

Программа замены цифры в числе. Дано натуральное число. Заменить все цифры 7 цифрами 8 и удалить из записи числа все 1.
Дано натуральное число. Заменить все цифры 7 цифрами 8 и удалить из записи числа все 1. Например 175718 - 8588 Помогите пожалуйста с...

1
Заблокирован
05.05.2011, 09:48 2
поместите на форму кнопку Command1
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Command1_Click()
    Dim i As Integer
    i = CInt(InputBox("Ââåäèòå ÷èñëî"))
    Print ("Ýòî ÷èñëî")
    If i = 0 Then
        Print ("Ýòî 0")
    Else
        Print (IIf((i Mod 2) = 0, "1)×åòíîå", "1)Íå÷åòíîå"))
        If i > 0 Then
            Print ("2)Ïîëîæèòåëüíîå")
        Else
            Print ("2)Îòðèöàòåëüíîå")
        End If
    End If
End Sub
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
05.05.2011, 09:48
Помогаю со студенческими работами здесь

Программа пишет все числа до числа n, а надо n чисел положительных и нечетных
Дано имя файла и целое число N (> 1). Создать файл целых чисел с данным именем и записать в него N первых положительных нечетных чисел (1,...

Wi-Fi модем подключается, пишет что подключено, но всё равно стоит значок в виде жёлтого треугольника с восклицательным знаком и пишет "без доступа в
Здравствуйте. Извините, что влезаю в чужую тему, но у меня такая же проблема! Wi-Fi модем подключается, пишет что подключено, но всё равно...

В данном целом числе N, заменить нулями все цифры стоящие на нечетных позициях в числе
В данном целом числе N, заменить нулями все цифры стоящие на нечетных позициях в числе.

Почему программа не выводит сообщения о том,что той или иной цифры в числе нет,если в ней всё прописано?
int a, b, k, i,b1; int n; i = 0; b1 = 0; Console.Write("Введите натуральное число: "); n =...

Пишет: введите все данные. В чем ошибка? Все поля заполняю
Вот код: //соответствующим переменным присваиваются соответствующие значения //если переменная пуста, то она удаляется if...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Подключение к контейнеру Docker и работа с его содержимым
hw_wired 13.02.2025
В мире современной разработки контейнеры Docker изменили подход к созданию, развертыванию и масштабированию приложений. Эта технология позволяет упаковать приложение со всеми его зависимостями в. . .
Отличия интерфейсов и типов в TypeScript
hw_wired 13.02.2025
TypeScript - мощное средство для создания качественного и поддерживаемого кода, который расширяет возможности JavaScript, добавляя систему статической типизации. В отличие от динамической типизации. . .
Async/await в циклах JavaScript
hw_wired 13.02.2025
Современная веб-разработка немыслима без асинхронного программирования. Когда приложение выполняет длительные операции - загрузку данных с сервера, чтение файлов или обработку медиа-контента, важно. . .
Git не работает на MacOS после апдейта
hw_wired 13.02.2025
После очередного обновления MacOS многие разработчики сталкиваются с неприятным сюрпризом - Git перестает работать и выдает ошибку "xcrun: error: invalid active developer path". Эта проблема особенно. . .
Git отказывается объединять несвязанные истории
hw_wired 13.02.2025
Git работает безупречно, пока мы не сталкиваемся с особыми ситуациями вроде объединения веток с разными корнями истории. В таких случаях система контроля версий может преподнести неприятный сюрприз в. . .
Проверка email с помощью JavaScript
hw_wired 13.02.2025
Email-адреса имеют довольно запутанную спецификацию, которая допускает множество неочевидных вариантов написания. Например, знали ли вы, что адрес вида "name+tag@domain. com" или даже. . .
Замена всех вхождений строки с помощью JavaScript
hw_wired 13.02.2025
JavaScript предлагает несколько способов для выполнения операций замены в строках, каждый из которых имеет свои особенности и область применения. От простейшей замены первого найденного вхождения до. . .
Отличия между ~ и ^ в package.json. Версии в Node.js
hw_wired 13.02.2025
Управление зависимостями в Node. js проектах - это настоящее исскуство, требующее глубокого понимания механизмов версионирования пакетов. В центре этого процесса находится файл package. json, который. . .
Циклы в Python
hw_wired 13.02.2025
Когда мы пишем программы на Python, часто возникает необходимость выполнить одни и те же действия множество раз. Представьте, что вам нужно обработать список из тысячи элементов или вывести на экран. . .
Присоединяйтесь к вызову «В память о Дилане Буччи»
Programma_Boinc 13.02.2025
Присоединяйтесь к вызову «В память о Дилане Буччи» 19 февраля, базирующаяся в Виннипеге, кибер - академия старшей школы Сислера начнет командный вызов, который продлится 19 дней. Опубликовано:. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru