СИСТЕМЫ СЧИСЛЕНИЯ — А все-таки, в какой системе счисления лучше получать зарплату? Из размышлений программиста Плюшкина Человек, как известно, может распознавать тысячи (если не миллионы) видов всевозможных сигналов. Когда мы читаем книгу, минимальным информационным элементом для нас становится буква, цифра или знак препинания. Итого — несколько десятков различных символов! При разговоре же мы должны… Читать далее »
Задача: Ввести с клавиатуры номер трамвайного билета (6-значное число) и проверить является ли данный билет счастливым.
Задача: Ввести с клавиатуры число в диапазоне от 100 до 100000000 (введенное число проверяется). Подсчитать количество четных и нечетных цифр в этом числе в процентном отношении.
Введите текст в поле ниже и нажмите кнопку «отправить». Текст:
Подпрограмма: RusToEng — замена символов с русского на английский.Программный код на Delphi.
Бывали ли у вас случаи, когда необходимо ввести пароль смотря на русские буквы, но в английской раскладки? Что делать, если это виртуальная клавиатура и там выбор только конкретный: русский или английский? Данный сервис по замене русских букв на английские поможет вам.
Задача: дана последовательность А1,А2,А3,…А10. Вывести сообщение на экран, если больше или меньше 5 положительных чисел. Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 |
Sub random1() num1 = InputBox("Введите число 1:") num2 = InputBox("Введите число 2:") num3 = InputBox("Введите число 3:") num4 = InputBox("Введите число 4:") num5 = InputBox("Введите число 5:") num6 = InputBox("Введите число 6:") num7 = InputBox("Введите число 7:") num8 = InputBox("Введите число 8:") num9 = InputBox("Введите число 9:") num10 = InputBox("Введите число 10:") col = 0 If num1 > 0 Then col = col + 1 End If If num2 > 0 Then col = col + 1 End If If num3 > 0 Then col = col + 1 End If If num4 > 0 Then col = col + 1 End If If num5 > 0 Then col = col + 1 End If If num6 > 0 Then col = col + 1 End If If num7 > 0 Then col = col + 1 End If If num8 > 0 Then col = col + 1 End If If num9 > 0 Then col = col + 1 End If If num10 > 0 Then col = col + 1 End If If col <= 5 Then MsgBox ("Количество положительных чисел не превышает 5") Else MsgBox ("Количество положительных чисел больше 5") End If End Sub |
Задача: Даны два числа введенных с клавиатуры. Найти сумму целых чисел в интервале от A до B.