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

довжини сторін першого прямокутника A і B його площа в 6 разів менше площі другого прямокутника знайти довжину сторони другого прямокутника якщо довжина однієї з його сторін дорівнює C.мовою паскаль

Показать ответ
Ответ:
hatidzemustafaeva
hatidzemustafaeva
08.07.2021 09:16

7 бит:

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

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

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

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

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

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

0,0(0 оценок)
Ответ:
zarasabaka
zarasabaka
17.12.2020 06:00

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-бота