сервис вопросов и ответовВвести целые числа в переменные А,Б,С.Нечетные значения уменьшить на единицу
10-11 класс|
|
Ladyarstanowa
12 дек. 2014 г., 6:46:34 (9 лет назад)
Araikabylova
12 дек. 2014 г., 8:23:21 (9 лет назад)
Sub Z() 'начало программы с именем Z
Dim a As Integer 'создаем ячейку с именем а для целых чисел
Dim b As Integer 'создаем ячейку с именем b для целых чисел
Dim c As Integer 'создаем ячейку с именем c для целых чисел
a = InputBox("Введите A: ")
'Просим пользователя ввести какое-нибудь число. Записываем его в ячейку а
If a Mod 2 = 1 Then a = a - 1
'Если остаток от деления на 2 равен 1, то число а уменьшаем на единицу
b = InputBox("Введите B: ")
'Просим пользователя ввести какое-нибудь число. Записываем его в ячейку b
If b Mod 2 = 1 Then b = b - 1
'Если остаток от деления на 2 равен 1, то число b уменьшаем на единицу
c = InputBox("Введите C: ")
'Просим пользователя ввести какое-нибудь число. Записываем его в ячейку c
If c Mod 2 = 1 Then c = c - 1
'Если остаток от деления на 2 равен 1, то число c уменьшаем на единицу
MsgBox ("A=" & a & "; B=" & b & "; C=" & c)
'Выводим на экран текст A=. затем число из ячейки а, затем печатаем знаки ; B=, потом число из ячейки b, затем знаки ; C= и число из ячейки с
End Sub 'конец программы
Ответить
Другие вопросы из категории
Помогите пожалуйста)
Строковые операции. Подсчитать количество символов во введенной строке и если число символов больше 10, то вырезать 3 левых, 3 правых символа. Получить конечную строку переставив левые символы с правыми.
Читайте также
1)Ввести целое число и найти произведение его четных цифр. Пример: Введите целое число: 1234. Произведение четных цифр числа 1234 равно
6.
2)Ввести целое число и определить количество черных и нечетных цифр.
Пример:
Введите целое число :12547
количество нечетных цифр:3
количество четных цифр:2
Всем привет! Помогите пожалуйста по информатике. Задача: ввести целое число и найти сумму его цифр. Пример: введите целое число:1234. Сумма цифр числа 1
234 равна 10. Задача: сумма цифр ввести целое число и определить верно ли, что в его записи есть 2 одинаковые цифры. Пример: введите целое число 1234 нет введите целое число 1224 да
4 задачи: ввести натуральное число и определить, верно ли, что сумма цифр равна 10 (через repeat и until)//// ввести натуральное
число и определить, какие цифры встречаются несколько раз (через repeat и until)///
ввести целое число и найти сумму его цифр (через while)
ввести целое число и определить , верно ли, что в его записи есть две одинаковые цифры(через while)
всё через паскаль абс
1.Напишите команды, которые выполняют следующие действия: а) вывод переменной с ;б) описать переменные а и s целого типа; в) переменной r присваивает
разность чисел p и q.
2.Что будет на экране после выполнения следующих команд: а) Writeln(9); Write(5); Writeln(3); б) Writeln(4*2); Write('5-3'); Writeln('5+1=',5+1);
3.Укажите различия циклов While и Repeat
4.Дана строка. Определить сколько пробелов в этой строке
6.Дано четырехзначное число. Вывести на экран сумму цифр этого числа
7.Найти количество цифр целого числа N
8.Напишите команды, которые выполняют следующие действия: а) ввод переменной d б) описать переменные m и n вещественного типа. в) переменной s присвоить разность чисел p и q
9.Что будет на экране после выполнения следующих команд: Writeln(5-3); Write('5+3'); Writeln('5*4=',5*4);
10.Когда нельзя применять цикл for
11.Дана строка. Определить сколько букв в этой строке
12.Дано трехзначное число. Вывести на экран все его цифры столбиком
13. Найти количество цифр целого числа N(+блок-схема)
Дана строка , в которой содержится осмысленное текстовое сообщение. Слова сообщения разделяются В заданном формате дд- целое число из диапазона от 1 до
31, мм - целое число из диапазона от 1 до 12, а гг - целое число из диапазона от 1 до 2020 (если какая-то часть формата нарушена, то данная подстрока в качестве даты не рассматривается.) Заменить каждую дату сообщения на дату следующего дня. Написать программу на Паскале. Сроооооооооооооочнооо. Пооожалуйста.....
Вы находитесь на странице вопроса "Ввести целые числа в переменные А,Б,С.Нечетные значения уменьшить на единицу", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.