program amountnumbers3;
var
quantity, amount, number, counter: integer;
begin
counter := 0;
amount := 0;
write('Введите количество чисел: ');
read(quantity);
while counter <> quantity do
begin
read(number);
if (number mod 3 = 0) then
inc(amount, number);
inc(counter);
end;
write('Сумма чисел, кратных 3 = ', amount);
end.
Объяснение:
program amountnumbers3; // Название программы
var
quantity, amount, number, counter: integer; // Создание целочисленных переменных:
quantity - количество чисел в последовательностиamount - сумма чисел, кратных 3number - числа - переменная счетчикbegin // Начало программы
counter := 0; // Переменная счетчик = 0
amount := 0; // Переменная, хранящая сумму = 0
write('Введите количество чисел: '); // Вывод сообщения в консоль
read(quantity); // Считывание количества чисел в последовательности с клавиатуры
while counter <> quantity do // Пока значение переменной counter ≠ значению переменной quantity, выполняй
begin // Начало цикла
read(number); // Считываем число последовательности с клавиатуры
if (number mod 3 = 0) then // Если остаток от деления при делении значения переменной number на 3 = 0, тогда
inc(amount, number); // Увеличиваем значение переменной amount на number
inc(counter); // Увеличиваем значение переменной counter на единицу
end; // Конец цикла
write('Сумма чисел, кратных 3 = ', amount); // Вывод ответа
end. // Конец программы
Поделитесь своими знаниями, ответьте на вопрос:
Звуковой стерео (2 канала) файл, длительность звучания которого составляет 32 минуты, записан с частотой дискретизации 16 КГц. Определить глубину кодирования в байтах, если объем файла 468, 75 Мбайт.
Шестой (6) => Второй (2) => Четвёртый (4) => Первый (1) => Пятый (5) => Третий (3)
Объяснение:
Первый: 600 Кбайт
Второй: 200 байт
Третий: 1 Терабайт
Четвёртый: в 10 раз больше, чем Шестой (400 бит) * 10 = 4 000 бит
Пятый: 3 Мбайта
Шестой: 400 бит
Приравняем всё к одной системе, учитывая что:
1 байт = 8 бит
1 Кбайт = 1000 байт
1 Мбайт = 1000 Кбайт
1 Терабайт = 1000 Гбайт
Приравнивать будем к байтам
Первый: 600 Кбайт = 600 * 1000 = 600 000 байт
Второй: 200 байт
Третий: 1 Терабайт = 1 000 Гбайт (это много, дальше можно не считать)
Четвёртый: 4 000 бит = 4000 / 8 = 500 байт
Пятый: 3 Мбайта = 3 * 1000 * 1000 = 3 000 000 байт
Шестой: 400 бит = 50 байт
Теперь расставляем в порядке возрастания (от меньшего к большему)
Шестой: 50 байт
Второй: 200 байт
Четвёртый: 500 байт
Первый: 600 000 байт
Пятый: 3 000 000 байт
Третий: 1 000 Гбайт