x := x div y;. y := х mod у;. var n, s: integer;. while n <= 8 do begin. write(s). for i := 1 to 9 do. if A[i-1] < A[i] then begin

x := 336;

У := 8;

x := x div y;

y := х mod у;

№9* Производится четырёхканальная (квадро) звукозапись с частотой дискретизации 48 кГц и 32-битным разрешением. Запись длится 2 минуты, её результаты записываются в файл, сжатие данных не производится. Определить размер полученного файла в Мбайт? В ответе указать ближайшее целое число, кратное 10.

№10* Логическая функция F задаётся выражением (a Ù b) Ú (a Ù c). Определите, какому столбцу таблицы истинности функции F соответствует каждая из переменных a, b, c.

?	?	?	F

В ответе напишите буквы a, b, c (без разделителей) в том порядке, в котором идут соответствующие им столбцы.

№11* Определите, что будет напечатано в результате работы следующего фрагмента программы:

var n, s: integer;

begin

n := 4;

s := 0;

while n <= 8 do begin

s := s + n;

n := n + 1

end;

write(s)

end.

№12* В программе используется одномерный целочисленный массив A с индексами от 0 до 9. Значения элементов равны 7; 5; 3; 4; 8; 8; 9; 7; 6; 2 соответственно, т.е. A[0] = 7; A[1] = 5 и т.д. Определите значение переменной c после выполнения следующего фрагмента программы:

c := 0;

for i := 1 to 9 do

if A[i-1] < A[i] then begin

t:= A[i];

A[i]:= A[i - 1];

A[i-1]:= t;

c:= c + 1;

end;

⇐ Предыдущая 12