Var x,y,z,n:integer;
begin
writeln('Введите n');
readln(n)
;for x:=1 to n do
begin
for y:=1 to n do
begin
for z:=1 to n do
begin
if (sqr(x)+sqr(y)+sqr(z)=n)then writeln('x=',x,' y=',y,' z=',z);
end;
end;
end;
<span>end.</span>
1)
1431_10 = 10110010111_2
всего простаранства у нас 2 байта = 8*2 = 16 бит. Дописываем нули
0000 0101 1001 0111
2)
Всего возможных 8 чисел.
i = log_2 (8) = 3 бита нужно для кодирования одного числа, т.е. полученная информация равна 3 битам
Процесс создания приложения в Lazarus можно разделить на следующие этапы:
<span>1. Формирование окна программы – расположение необходимых элементов, задание размеров, изменение свойств; </span>
<span>2. Написание программного кода, описание свойств элементов, доступных только во время работы приложения, описание реакций на событие появления окна, нажатие на кнопку и других; </span>
<span>3. Отладка программы. </span>
Следуя алгоритму, можно понять, что каждый "виток спирали" будет закончен цифрой, на 1 большей, чем цифра, с которой он начинался. Значит, можно заметить, что по диагонали, проходящей через центральную клетку таблицы, из правого верхнего угла в левый нижний, будут только числа 11. Значит и закончится спираль числом 11.