Pascal/Вводится целое неотрицательное число. Определить сколько различных чисел, такой же длины можно составить из его цифр. При составлении числа должны использоваться все цифры исходного числа, в том же количестве, что и в исходном числе.

64*64= 4096- общее количество пикселей.(точек на экране) 

512байт /4096=(512*8) бит\4096=1 бит.то есть получается что на одну точку приходится 1 бит данных. это значит что общее количество цветов на точку   - 2 в степени.   то есть 2 цвета

№1. программа на паскале

program xxx;

  var n : integer;

              x : array[1..10] of integer;

begin

  for n: =1 to 10 do

      x[n]: =sqr(n) + 5;

  wreteln('последовательность х: ')

  for n: =1 to 10 do

          write(x[i]);

    readln

end.

а)сумм(a5: b7)

б)срзнач(c4: c7)

var n,z: longint;

begin

  read(n);

  z: =abs(n);

  z: =z-2;

  writeln(z);

end.