b := (a mod 1000)*10;. a := a div 1000 + b;. var n, s: integer;. while n <= 20 do begin. write(s). for i := 1 to 9 do. if A[i] < A[0] then begin

a := 2468;

b := (a mod 1000)*10;

a := a div 1000 + b;

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

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

?	?	?	F

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

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

var n, s: integer;

begin

n := 1;

s := 0;

while n <= 20 do begin

s := s + 33;

n := n + 1

end;

write(s)

end.

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

c := 0;

for i := 1 to 9 do

if A[i] < A[0] then begin

c := c + 1;

t := A[i];

A[i] := A[0];

A[0] := t;

end;

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