b :=(a div 10) mod 5;. var n, s: integer;. while n <= 13 do begin. write(s). for j := 0 to 8 do. if A[j] > A[j+1] then begin

а :=1686;

b :=(a div 10) mod 5;

а := а - 200*b;

№9* Какой минимальный объём памяти (в Кбайт) нужно зарезервировать, чтобы можно было сохранить любое растровое изображение размером 64 на 256 пикселов при условии, что в изображении могут использоваться 256 различных цветов? В ответе запишите только целое число, единицу измерения писать не нужно.

№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 <= 13 do begin

s := s + 15;

n := n + 1

end;

write(s)

end.

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

с := 0;

for j := 0 to 8 do

if A[j] > A[j+1] then begin

с := с + 1;

t := A[j];

A[j] := A[j+1];

A[j+1] := t;

end.

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