Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
bocmanlera
26.01.2023 02:16 •
Информатика
Вывести на экран в столбец числа от 1 до 20 через 1
паскаль
👇
Увидеть ответ
Открыть все ответы
Ответ:
Гелакси27
26.01.2023
'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
26.01.2023
В 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 оценок)
Это интересно:
К
Компьютеры-и-электроника
01.08.2020
Как закрывать приложения на iPhone, iPad и iPod Touch: инструкция для начинающих...
С
Семейная-жизнь
02.02.2020
Как показать почтение умершему знакомому...
К
Кулинария-и-гостеприимство
24.10.2021
Как законсервировать томатный соус...
03.04.2021
Как вернуть бывшего парня (для девушек-подростков)...
М
Мир-работы
29.12.2021
Как успешно пройти тестирование при приеме на работу...
К
Компьютеры-и-электроника
29.01.2023
О преобразовании файлов ODT в DOC и почему это важно...
Д
Дом-и-сад
16.05.2021
Как избавиться от пятен после постельных клопов...
М
Мир-работы
22.03.2022
Как эффективно управлять складом: польза и преимущества...
П
Питомцы-и-животные
11.03.2022
Хочу хомяка! Как убедить родителей купить домашнего питомца...
К
Компьютеры-и-электроника
23.05.2020
Как удалить файлы Только для чтения без проблем...
Новые ответы от MOGZ: Информатика
Romikkk1
27.01.2021
Дано арифметическое выражение (все числа в 16 с.с.): B*3^В + 3 Найти результат вычисления данного выражения в 16 с.с. и посчитать сумму его цифр. ответь дать в 10 с.с....
pavdora073539
22.02.2020
Http://techno.bigmir.net/help/1542226-Otlozhim-na-potom%E2%80%94TOP-10-servisov-zakladok...
ЛИЗАЛАРИНА
24.07.2020
Задача: Даны трехзначное натуральное число. Удвоить это число если в его записи есть хотя бы одна единица и возвести в квадрат в противном случае. Формат ввода: В первой строке -...
artemlykov2000
19.08.2021
2 Какие блоки Какие виды алгоритмов Вы знаете? блоки используются в линейном, разветло темся пЦІКическом алгоритмах? Как используются команды цикла в Scratch? Как используются команды...
lina160107
09.03.2023
МНЕ, МУДРЫЙ ЁЖ! Написать программу на языке Паскаль: найти все целые двузначные числа, кратные 9 и заканчиваются цифрой 3...
Anele2003
08.01.2020
Информатика. любое задание...
ya042302SashaA
21.09.2020
Выберите свойства,которые относятся к форматированию страницы. а)ориентация б)шрифт в)поля г)цвет д) обрамление е)выравнивание...
kristinaFro
15.04.2022
Як реализувати цикл із невідомою кількістю повторень у середовищі Скетч ...
ЯнчикИлИоДуванчик
16.02.2020
Сортировка элементов массива. Определите о какой сортировке идет речь: Плюсы реализации алгоритма 2 Красивое название Минусы: 1 Один из самых медленных методов сортировки (Время...
upvchasro
08.06.2022
Надо больше призноков к слову незабудка имя прилагательное...
MOGZ ответил
Найдите схв в произведении пушкина и путник усталый на бога роптал...
Доклад по тему, сравнение общественная культура россии и советского? мне нужно...
Какой угол образуют часовая и минутная стрелки часов в 7ч? и в 3ч30мин?...
Какие качества формируются у обломова (сон обломова)...
Найдите неизвестный член пропорции ×: 2 1/5=1,3: 0,26...
1. сравните (поставьте знак , или =): a. 3 байта 24 бита b. 1000 байтов 1 кбайт...
Составить распространенное предложение и нераспространенное: , в, шахматы, играют...
Какие бывают части клетоки и роль (значение)...
Как рассчитать массу воды в собственном теле? сделайте вывод, в котором укажите,...
Нужно найти сумму цифр четырехзначного числа и записать в паскале...
Полный доступ к 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()