В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
qwert1520
qwert1520
19.04.2022 14:35 •  Информатика

Создайте проект, в котором можно вычислить количество двузначных чисел среди чисел, первое из которых равно 10, а каждое следующее больше предыдущего на заданное положительное число.
Для Лазаруса​

Показать ответ
Ответ:
winx237
winx237
05.12.2022 18:53

7 бит:

ASCII7 — первая кодировка, пригодная для работы с текстом. Помимо маленьких букв английского алфавита и служебных символов, содержит большие буквы английского языка, цифры, знаки препинания и другие символы.

Кодировки стандарта ASCII (8 бит):

ASCII — первая кодировка, в которой стало возможно использовать символы национальных алфавитов.

КОИ8-R — первая русская кодировка. Символы кириллицы расположены не в алфавитном порядке. Их разместили в верхнюю половину таблицы так, чтобы позиции кириллических символов соответствовали их фонетическим аналогам в английском алфавите. Это значит, что даже при потере старшего бита каждого символа, например, при проходе через устаревший семибитный модем, текст остается "читаемым".

CP866 — русская кодировка, использовавшаяся на компьютерах IBM в системе DOS.

Windows-1251 — русская кодировка, использовавшаяся в русскоязычных версиях операционной системы Windows в начале 90-х годов. Кириллические символы идут в алфавитном порядке. Содержит все символы, встречающиеся в типографике обычного текста (кроме знака ударения).

0,0(0 оценок)
Ответ:
МаринаДоблер
МаринаДоблер
10.05.2021 19:18

Dim s As Integer, sum As Single

s = 44

If s Mod 2 = 1 Then

sum = Sin(s * 3.14 / 180) + Cos(s * 3.14 / 180)

Else

sum = Abs(s)

End If

MsgBox sum

'задач 3

Dim s As Integer, sum As Integer, i As Integer, j As Integer

  Do While i < 21

  sum = sum + j

Cells(i + 1, 1) = i

Cells(i + 1, 2) = j

Cells(i + 1, 3) = sum

i = i + 1

j = j + 3

Loop

'задач 4

Dim x As Integer, sum As Single, i As Integer, n As Integer

x = 30

n = CInt(InputBox("Введите n"))

For i = 1 To n

sum = sum + Sin(i * x * 3.14 / 180)

Next i

MsgBox sum

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота