Краткая история компьютерной техники (1623-1999)
1623 Первая «считающая машина», созданная Уильямом Шикардом Этот довольно громоздкий аппарат мог применять простые арифметические действия (сложение, вычитание) с 7-значными числами.
Сбор информации о компьютере по сети
Предлагаемый программный продукт собирает необходимые сведения о конфигурации компьютеров c Windows 2000/XP/2003/2008/Vista/7/. Отчет сохраняется в структурированный текстовый файл. Если у вас есть предложения по улучшению продукта, пишите в комментариях и мы постараемся их реализовать.
Ввести с клавиатуры номер трамвайного билета
Задача: Ввести с клавиатуры номер трамвайного билета (6-значное число) и проверить является ли данный билет счастливым.
Ввести с клавиатуры число в диапазоне от 100 до 100000000
Задача: Ввести с клавиатуры число в диапазоне от 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 |
Citroen C4 кузов 2011 года
Французские автомобили узнаваемы издалека, их выделяет элегантная сексуальность. Многие негативно относятся к французскому автомпрому, не совсем понятно почему, ведь 80% людей, отвергающих «французов», даже не сидели за рулем этих автомобилей. А вот мне посчастливилось приобрести одного из представителей страны ароматных сыров и истинно французских поцелуев. Салон отделан довольно не бедно: торпеда из мягкого пластика, цифровой… Читать далее »
Nikon представит объектив 70-200mm f/4 со стабилизатором (VR) нового поколения
В среду компания Nikon порадует нас своими новинками в фототехники. Одновременно с камерой Nikon 1 V2 на свет появится объектив с фокусным расстоянием 70-200 мм и постоянной максимальной диафрагмой F/4. Этот объектив может стать первым объективом Nikon, оснащенным оптическим стабилизатором (VR) нового поколения.