Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
ПеЧеНьКа811
15.04.2022 02:53 •
Информатика
Впаскале ! в массиве есть нулевые элементы. выдать на экран их номера.
👇
Увидеть ответ
Ответ:
vladmasWwr
15.04.2022
Var
A:array[1..10] of real;
i:integer;
Begin
WriteLn('Введите 10 чисел');
For i:= 1 to 10 do
Read(A[i]);
Write('Номера нулевых элементов: ');
For i:=1 to 10 do
if A[i]=0 then Write(i,' ')
End.
4,4
(37 оценок)
Открыть все ответы
Ответ:
Annaanna2002
15.04.2022
' 1)Напиши программу, выводящую на экран степени числа 3 в интервале от а до b включительно (а и b задаются пользователем).
Dim a As Integer
Dim b As Integer
Dim i As Integer
a = InputBox("Введите а")
b = InputBox("Введите b")
Dim msg As String
msg = ""
For i = a To b
msg = msg & 3 в степени " & i & " равно " & 3 ^ i & vbCrLf
Next
MsgBox(msg)
2)Найти все делители числа 1204.
Dim i As Integer
Dim msg As String
msg = ""
For i = 1 To 1204
If 1204 Mod i = 0 Then
msg = msg & "Число " & i & " является делителем 1204." & vbCrLf End If
Next
MsgBox(msg)
4,6
(50 оценок)
Ответ:
Anny2007Bell
15.04.2022
1) 1024 байт =1024 байт
1024 байт > 1000 байт
800 байт < 1024 байт
400 бит = 400 бит
8192 байта < 1024 байта
2) 64 бита=64*8 байт=512 байт
3) 64=2^6? i=6 бит
4) 40 байт
5)11 Кб=11*1024*8 бит
11*1024*8=11264*i i=(11*1024*8)/11264=8 бит
N=2^8=256
6) 32=2^5?
i=5
7) N=16 i=4 N=256 i=8
8/4=2 (в 2 раза)
8) N=16 i=4 k=50
I=50*4=200 бит
9) N=256 i=8 k=30*70*5
I=30*70*5*8=84000 бит
10) 1 Мб=1024*1024*8 бит
1/512 Мб=(1024*1024*8)/512=1024*16 бит
1024*16=2048*i i=(1024*16)/2048=8 бит
N=2^i
2^8=256
11) N=256 i=8 k=160*192
I=160*192*8 бит
I=(160*192*8)/(1024*8)=30 Кб
4,8
(97 оценок)
Это интересно:
И
Искусство-и-развлечения
20.03.2022
Как вставить трость в кларнет: научитесь быстро и легко...
З
Здоровье
30.08.2020
Как предотвратить простуду на коже (герпес)...
П
Путешествия
10.10.2021
Как собраться в деловую поездку: советы для эффективной подготовки...
П
Питомцы-и-животные
15.06.2022
Как производить убой крупного рогатого скота...
П
Питомцы-и-животные
13.09.2020
Как вырастить карпа кои: основные правила и советы...
П
Питомцы-и-животные
24.05.2020
Как спасти кошку, которая забралась на дерево?...
З
Здоровье
15.05.2021
Как распознать мошоночную грыжу...
Д
Дом-и-сад
21.11.2022
Как подрезать азалию: правила и рекомендации...
18.05.2021
Как стильно и удобно одеваться в старшей школе: советы для парней...
К
Кулинария-и-гостеприимство
07.03.2023
Как приготовить пончики: простой и вкусный рецепт...
Новые ответы от MOGZ: Информатика
цукенг7ш8
05.10.2020
Вузол зв язку передає дані по двох каналах . швидкість передавання даних по одному каналу 2мбіт/с, розмір його буфера 16мбайт. швидкість передавання даних по другому каналк 2,5...
Алёна280104
06.04.2023
Розташувати в масиві R (n) спочатку позитивні, а потім негативні елементи масиву Z(n), де 0 =n =40. C ++ ( + алгоритм)...
Nastysha222
22.12.2022
Информатика, 7 класс. дам, не прогадаю на этот раз))) 1. В чем заключается особенность технологии мультимедиа? 2. Чем должен быть дополнительно укомплектован компьютер, на котором...
adashevanastya
18.01.2020
Глаза - органы слуха. у человека два уха. пингвины живут в африке. угрюмое небо. электронное устройство. компьютер- электронное устройство...
milana20123
18.01.2020
Чуваки по инфе 5 класс пункт главново меню 9 50 быловв лутшему ответу...
www6363901fs
14.03.2022
Посчитать сумму элементов стоящих на четных местах. алгоритм напишите ....
rtyuidsad042
17.07.2021
С АЛГЕБРОЙ буду благодарна ))...
TryCake
03.01.2020
Логика вопрос на картинке напишите объяснение тоже...
ruks777
30.01.2022
поясніть на прикладах роль і місце українських земель у господарському житті російської імперії друга половина XIX століття...
гульнар20091
04.04.2021
Напишите сочинение на тему «В жизни всегда есть место подвигу» 10-15 предложений НЕ ИЗ ИНТЕРНЕТА...
MOGZ ответил
Как умножать дроби??? ПОДРОБНА...
Глобализация и глобальные проблемы. Их происхождение и взаимосвязь...
С идеальным газом, взятом в количестве 3 моля, проводят замкнутый процесс,...
Дома Винни - Пуха и Пяточка находятся на расстоянии 1 км друг от друга. Однажды...
А16. В каком ряду во всех словах пропущена одна буква Н? 1) карти…ая, ути…ая,...
Sınavdayım yardım edermisiniz...
Задание указано на фото. >...
С указанными ниже словами составьте по два предложения так, чтобы в одном...
3. Практическое задание. Спишите текст, вставьте пропущенные буквы. В сложносочиненных...
Кого из персидских царей победили саки: Кир Камбис Полиэн Ксеркс Дарий Столица...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
A:array[1..10] of real;
i:integer;
Begin
WriteLn('Введите 10 чисел');
For i:= 1 to 10 do
Read(A[i]);
Write('Номера нулевых элементов: ');
For i:=1 to 10 do
if A[i]=0 then Write(i,' ')
End.