В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
vitay123
vitay123
29.12.2020 23:31 •  Информатика

РЕШИТЬ В PYTHON.
Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, оканчивающихся на 4.

Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 4.
Количество чисел не превышает 1000. Введённые числа не превышают 30000.

Программа должна вывести одно число — сумму чисел, оканчивающихся на 4.

Показать ответ
Ответ:
Frizi4
Frizi4
04.05.2022 13:26
Сходства-одинаковые размеры (диаметр 120 мм, толщина 1.6 мм) , тот же радужный вид. Принцип записи и чтения тоже аналогичный: лазерный луч отражается от металлизированной поверхности ("ямок" и "горок"), причем, отражение от любой поверхности кодирует ноль, а отражение от перехода между ямкой и горкой (при этом луч ослабляется за счет интерференции) - единицу 
На этом сходство заканчивается - дело в том, что в CD используется инфракрасный лазер (длина волны в воздухе 780 нм) . В DVD же применяется красный лазер (650/635 нм) . Меньшая длина волны позволяет плотнее размещать информацию на DVD-диске. 
Ёмкость DVD сильно превосходит обычный компакт-диск (640 Мб) и составляет 4.38 гигабайта (в смысле 2^30 байт) или 4.7 миллиарда байт, имеется в виду односторонний, однослойный DVD-диск.
0,0(0 оценок)
Ответ:
Irina5786
Irina5786
10.12.2021 22:32
Uses
  Crt;

const
  n = 10;

type
  V = array[1..n] of integer;

function Mid(var a: V): double;
var
  i, s: integer;
begin
  s := 0;
  for i := 1 to n do s := s + a[i];
  Mid := s / n
end;

var
  x: V;
  i, j: integer;
  m: double;

begin
  Randomize;
  m := 0;
  for i := 1 to 5 do
  begin
    Writeln('Элементы массива ', i);
    for j := 1 to n do
    begin
      x[i] := Random(100);
      Write(x[i]:3)
    end;
    Writeln;
    m := m + Mid(x)
  end;
  Writeln('Среднее арифметическое пяти массивов равно ', m)
end.

Тестовое решение:
Элементы массива 1
 95 44 54 86 52 39 28 79 29 43
Элементы массива 2
 75 55 26 22 12 93 34 60 34 42
Элементы массива 3
 55 80 50 54 52 46 85 47 11 86
Элементы массива 4
 33 35  5 64 36 66 76 55 24 43
Элементы массива 5
 31 63 66 11 88  4 31 99 28 39
Среднее арифметическое пяти массивов равно 76.6
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота