Есть несколько вариантов узнать значение переменной в любой момент работы программы
- пошаговое исполнение в редиме отладки (debug) и через watch или наведения мыши смотреть значение в определенный момент
- вывод в лог, или так называемый дебаг логированием. Логом может служить не только текстовый файл, но и консоль
- дополнительные способы типа assert
Первый - любую из трех шляп, второй - любую из двух оставшихся, третий - 1 шляпу.
Итого 3*2*1=6 возможных вариантов:
const
n = 10;
var
a:array[1..n] of integer;
i, j:integer;
begin
randomize;
writeln('Исходный массив:');
for i := 1 to n do
begin
a[i] := random(101);
write(a[i], ' ');
end;
for i := 1 to n - 1 do
for j := 1 to n - i do
if a[j] mod 10 > a[j + 1] mod 10 then
begin
a[j] := a[j] + a[j + 1];
a[j + 1] := a[j] - a[j + 1];
a[j] := a[j] - a[j + 1];
end;
writeln;
writeln('Результат:');
for i := 1 to n do
write(a[i], ' ');
writeln;
end.
запишем условие: К=2048, I=1/512 Мб, N-?
Решение:
Выразим информационный объем сообщения в битах
I=1/512*1024*1024*8=2048*8 (удобно оставить так как есть)
Из формулы информационного объема сообщения найдем вес 1 символа
i=I/K=2048*8/(2048)=8 бит
Найдем мощность алфавита N=2 в степени 8, N=256 это и есть ответ