Var a,b:integer;
begin
write('a = '); readln(a);
b:=(a div 100)*100 + (a mod 10)*10 + (a div 10 mod 10);
writeln('b = ',b);
end.
Пример:
a = 123
b = 132
Да да да
да да нет
да нет да
да нет нет
нет да да
нет нет да
нет нет нет
нет да нет
<em>MS DOS QBasic 1.0</em>
RANDOMIZE TIMER
CONST n = 9
DIM a(1 TO n) AS INTEGER
CLS
FOR i = 1 TO n
a(i) = INT(99 * RND)
PRINT a(i);
NEXT i
PRINT
FOR i = 1 TO n - 1
FOR j = i + 1 TO n
IF a(i) < a(j) THEN
t = a(i)
a(i) = a(j)
a(j) = t
END IF
NEXT j
NEXT i
FOR i = 1 TO n
PRINT a(i);
NEXT i
<u>Пример</u>
85 21 7 21 29 45 98 70 23
98 85 70 45 29 23 21 21 7
Рассчитаем объем памяти S. Для этого умножим количество пикселей на глубину кодирования i, глубину кодирования определим из формулы: N=2^i, где N- кол-во цветов
4=2^i i=2
S=300*200*2= 120000 бит
При двухцветной палитре:
2=2^i
i=1
Тогда количество пикселей при 2 цветной палитре = S/i = 120000/1= 120000 пикселей
Ответ: 120000 пикселей
Ответ: 7
Цикл выполнится два раза:
1-я итерация: a = 11 (т.к. 15 - 4 = 11)
2-я итерация: a = 7 (т.к. 11 - 4 = 7)