Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
DMITRIY184
25.08.2021 14:41 •
Информатика
СОСТАВИТЬ ПРОГРАММУ ПАСКАЛЬ ДЛЯ ХОРОШЕЙ ОЦЕНКИ
👇
Увидеть ответ
Открыть все ответы
Ответ:
Гелакси27
25.08.2021
'VBScript
Sub Zadanie()
ReDim C(5, 6)
k_pos = 0
mini = LBound(C, 1)
minj = LBound(C, 2)
For i = LBound(C, 1) To UBound(C, 1)
For j = LBound(C, 2) To UBound(C, 2)
C(i, j) = Round(Rnd * 10)
if C(i, j) > 0 then k_pos = k_pos + 1
if C(i, j) < C(mini, minj) then
mini = i
minj = j
end if
Next
Next
MsgBox "min C(" & mini & ", " & minj & ")=" & C(mini, minj) & vbNewLine & "c>0: " & k_pos
End Sub
Call Zadanie()
4,4
(47 оценок)
Ответ:
husanov18p06h9l
25.08.2021
В 2сс:
27=16+8+2+1=2^4+2^3+2^1+2^0=1 1011 (2cc)
0,|27 * 2
0|54 *2
1|08 *2
0|16 *2
0|32 *2
0|64 *2
1|28 *2
0|56 *2
1|12 *2
0|24 *2
0|48 *2
0|96 *2
1|92 *2
1|84 *2
1|68 *2
1|36 *2
0|72 *2
1 |44 *2
0|88 *2
1|76 *2
1|52
+1
1|04 (последний байт при приближении =1100)
27, 27 = 1 1011, 0100 0101 0001 1110 1100 (в2сс) ≈11011,01001
27,27 = 1 B , 4 5 1 E B = 1B,451EC (в 16сс)
27, 27 = 11 011, 010 001 010 111 (в 2сс) =33,21217 ( в 8сс)
3 3, 2 1 2 7
4,7
(71 оценок)
Это интересно:
З
Здоровье
13.01.2022
Как правильно покормить ребенка при диарее...
К
Компьютеры-и-электроника
24.01.2021
Как подтвердить аккаунт YouTube: подробное руководство для начинающих...
О
Образование-и-коммуникации
25.10.2020
Как подкислить почву: советы, рекомендации, идеи...
Д
Дом-и-сад
28.09.2020
Как удалить кофейное пятно с шелка: лучшие способы...
З
Здоровье
30.09.2022
10 способов использования эфирных масел для улучшения вашего здоровья и красоты...
К
Компьютеры-и-электроника
05.06.2023
Узнайте, как скачать ролики с YouTube, используя Chrome...
Х
Хобби-и-рукоделие
29.07.2020
Как сделать буклет из бумаги: пошаговая инструкция для начинающих...
22.07.2022
Боязнь высоты: как преодолеть её и наслаждаться жизнью...
Х
Хобби-и-рукоделие
01.01.2022
Как сделать купальник: советы от профессионала...
К
Компьютеры-и-электроника
15.06.2021
Как открыть программу Terminal на Mac...
Новые ответы от MOGZ: Информатика
SaviRay
28.10.2020
Составить алгоритм и блок схему нахождения площади т периметра прямоугольника по двум сторонам...
vilkinakarina
28.10.2020
Примером хранения числовой информации может служить...
Ilia1098374
28.10.2020
Чему равен результат сложения следующих двоичных чисел 1101 и 11011...
Игорь3773
22.01.2021
Во встроенной среде обработки необходимо создать программу для переноса заданного битами объема информации в байты, килобайты и мегабайты. 1) Создайте интерфейс программы так, чтобы...
123QWE123QWE12345678
26.07.2020
Напишите программный код, которая сокращает дробь ) (не важно какой именно, хоть паскаль,хоть с++, не важно)...
Kurbanovaarina
22.03.2021
Определите в MS Excel формулу для ячейки А2, вычесляющая куб числа из ячейки А1, если это число положительное и четное, иначе формулу определяющая квадрат данного числа....
gaglovev2001
13.03.2022
Чему равен 1 кбайт? выберете один ответ: а)1000 байт б)102байт в)2 в 10 степени байт г)1000 бит...
ИванГо228
13.03.2022
100 гарантированно! в системе связи скорость передачи составляет 256000 бит в секунду. на передачу файла с несжатой монофонической музыкой потребовалось 4 минуты 35 секунд. укажите...
pupil80022225
13.03.2022
Набор цветов, которые могут использоваться в изображении....
nikputen1
26.03.2022
150 div 2 mod 30-90 mod 40 div. 10 можете решить ! (47 mod 8 + 150 div 30) mod 2. (49 mod 12-162 div 40) *( 19mod 3 + 50 div 4). (trunc(5.65) - round(-17.16))*in (-1.1)...
MOGZ ответил
У каструлю наливають 5 повних склянок холодної води при температурі 14,8°Сі 3...
А. Сұрақтарға жауап беріңдер және керісінше жауаптарға сұрақ құрастырыңдар Помагите...
Дана функция f(x). Найдите значение f(0), если:...
написать сочинение по картине В. Серова девочка с персиком очень надо На страницу...
Прочитайте текст. О чём вы узнали? Какое произведение А.П. Чехова имеет похожее...
1. Күрделі жалқы есімі бар сөйлемді белгілеңдер. а) Жетісу Алатауы – күрделі тау...
Підібрати два слова до схеми - - о = : о...
Подготовить информацию о жизни , развитии англии во 2 половине 18 века...
644 І. Прочитайте. Поясніть, з якою метою автор розповідає цю історію. ПОДВІЙНЕ...
Запишите в таблицу: Деятель Культуры Произведения Основы идеи...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
Sub Zadanie()
ReDim C(5, 6)
k_pos = 0
mini = LBound(C, 1)
minj = LBound(C, 2)
For i = LBound(C, 1) To UBound(C, 1)
For j = LBound(C, 2) To UBound(C, 2)
C(i, j) = Round(Rnd * 10)
if C(i, j) > 0 then k_pos = k_pos + 1
if C(i, j) < C(mini, minj) then
mini = i
minj = j
end if
Next
Next
MsgBox "min C(" & mini & ", " & minj & ")=" & C(mini, minj) & vbNewLine & "c>0: " & k_pos
End Sub
Call Zadanie()