Регистрация
AlsuApuseva
21.11.2021 09:13
Информатика
Есть ответ 👍

Информатика 10 класс 1) написать функцию ,которая выдаёт истину ,если число четное и если ложь - нечетное. 2) написать процедуру ,которая заменяет все четные числа в массиве 0 и выводит результат на экран.

265
453
Посмотреть ответы 2

Ответы на вопрос:

halelaiwi
halelaiwi
4,6(77 оценок)
1)function chet(a: longint): boolean; begin chet: =(a mod 2)=0; end; 2) procedure z(var a: array of longint; length: longint); var i: longint; begin for i: =1 to length do begin if not odd(a[i]) then a[i]: =0; write(a[i],' '); end; end;
sddnblck
sddnblck
4,8(60 оценок)

64 Мб

Объяснение:

Допустим, первый раз, запись, дискретизация и кодирование привели к созданию файла размером x=56 Мб.

Во второй раз изменилось следующее:

вместо одного канала (моно), стало два канала (стерео) ⇒

размер стал 2*x= 2x

Разрешение в два раза выше (больше) ⇒ размер стал еще в два раза больше

2*2x=4x

Частота дискретизации уменьшилась в 3,5 раза ⇒ размер уменьшился в 3,5 раза

4x / 3,5 = 4*56 / 3,5 = 64 Мб

Популярно: Информатика