Sub car()
Dim s1, s2 As Double
s1 = CDbl(InputBox("Введи первое число", "Ввод данных", 88))
s2 = CDbl(InputBox("Введи второе число", "Ввод данных", 46))
If s1 > s2 Then MsgBox (CStr(s1) + ">" + CStr(s2)) Else MsgBox (CStr(s1) + "<" + CStr(s2))
End Sub

0 0

4 года назад

Помогите умоляю с тестом по информатике

bigeev78

1 c 3 a 4 d 5 a
и все готово

0 0

4 года назад

Была получена телеграмма " Встречайте, вагон седьмой" . Известно, что в составе поезда 16 вагонов . Какое количество информации

ЕленаСом [24]

Количество информации вычисляем по формуле:
I = log(2)N = log(2)16 = 4 бита

0 0

3 года назад

Рассчитай объём видеопамяти, необходимой для хранения графического изображения, занимающего весь экран монитора с разрешением 72

OkGo999 [16]

При использовании палитры из 256 цветов для хранения одной точки изображения требуется log(2)256 = 8 бит = 1 байт.
Объем видеопамяти для хранения всего изображения = 720*348*1 байт =
720*348/1024 Кбайт ≈ 245 Кбайт

0 0

4 года назад