Ответы на вопрос:
1. Жесткий диск
- 2. Не вижу
- 3. Тоже не понятно
4. Флешка
- 5. Не понятно
6. Дискета
7. Кинолента?)
8. Диск
9. Похоже на микросхему
10. Тоже выглядит как дискета
Sub num2() s = 0 dim a k = cint(inputbox("k =")) n = cint(inputbox("n =")) redim a(n - 1) for i = 0 to n - 1 a(i) = cint(inputbox("a(" & i & ") =")) if a(i) mod k = 0 then s = s + a(i) next msgbox s end sub sub num1() i = 0 e = cdbl(inputbox("e =")) do while i < = e i = i + sqr(2) loop msgbox "i = " & i end sub
Популярно: Информатика
-
Masha3612712.08.2021 04:02
-
ksusha02050401.07.2020 12:39
-
sabinab1315.05.2023 06:24
-
ruslan42813.02.2021 06:36
-
malikajdar14.03.2022 21:33
-
alexalu040206.12.2020 11:57
-
dmatveeva131.03.2023 20:37
-
френки914.09.2022 05:33
-
CrowOnix08.02.2022 09:08
-
dashasmirnova8522.04.2020 08:49