М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
sashamur20051
sashamur20051
09.12.2021 18:12 •  Информатика

Массив содержит 10 случайных чисел от 10 до 20. определите произведение чисел кратных 3 и их количество

👇
Ответ:
Alexandr2K17
Alexandr2K17
09.12.2021
Var
  i, pr, k: byte;
  arr: array[1..10] of byte;

begin
  randomize();
  pr := 1;
  k := 0;
  for i := 1 to 10 do
  begin
    arr[i] := random(11) + 10;
    if arr[i] mod 3 = 0 then begin
      pr := pr * arr[i];
      k := k + 1;
    end;
  end;
  writeln(arr);
  writeln('Произведение чисел, кратных 3-м = ', pr);
  writeln('Кол-во этих чисел = ', k);
end.
4,8(17 оценок)
Открыть все ответы
Ответ:
ahkmedchaush0
ahkmedchaush0
09.12.2021

В объяснении

Объяснение:

1 Вариант

1. 1)ppt

2. 1) my.doc, bell.txt, song.docx;

3. 3)мышь

4. 1) красного, синего, зеленого

5.Объем сообщения определяется по формуле:

V=l*r,

где l-длина сообщения, r-разрешение.

l=50, т.к.всего в предложении 50 символов (пробелы и знаки препинания являются символами).

r=1 байт=8 бит.

Объем сообщения равен:

V=50*8=400 бит.

6. не понятно, что делать, задания не видно как-то

7.InternetExplorer= 73 110 116 101 114 110 101 116 69 120 112 108 111 114 101 114

8. Нет рисунка  собственно

9.  64 бита < 16 байт

10 Кбайт < 10600 байт

10 байт = 80 бит

10. Нет схемы

4,8(75 оценок)
Ответ:
sXiM
sXiM
09.12.2021

Объяснение:

1) четным. Функция a mod 2 возвращает остаток от деления числа а на 2.

Если остаток равен 0, то число а четное.

2) 20.

a = 100; b = 30; a = 100 - 3*30 = 10

c = b - a = 30 - 10 = 20

3) if переводится как если, и не только в условном операторе, а вообще по-английски.

4) (x=3) or (x=4).

Вообще-то любое из этих выражений может быть использовано, как условие.

Если нет проверки на равенство числу, то подразумевается проверка на равенство нулю.

Но, скорее всего, имеется ввиду именно это выражение.

5) if a<b then min := a; else min := b;

Ошибка: после min := a точка с запятой не нужна.

6) Условие: a < 17

7) Нет верного ответа, потому что не бывает треугольника с тремя прямыми углами.

8) Не могу ответить, потому что нет фрагмента программы.

4,8(20 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ