Написать на языке паскаль алгоритм нахождения количества натуральных четырехзначных чисел, каждое из которых не делится ни на 2, ни на 3.

Uses crt; var i,k: integer; begin       k: =0;       for i: =1000 to 9999 do           if (i mod 2< > 0) and (i mod 3< > 0) then inc(k);       writeln(k); end.

1) общее количество пикселей 32·64 = 2048. общее количество бит: 8·512 = 4096.  значит, на 1 пиксель отводится по 4096: 2048 = 2 бита информации; таким образом, максимальноеколичество цветов равно 2²  =  4  p. s. разумеется, предполагается, что информация хранится в несжатом виде.     2) 128х128=16,384 пикселя. 2 кб памяти = 2,048 байт. делим объем памяти на количество точек. получаем 2,048/16,384=0.125 байта на точку, или 1 бит (1/8=0.125). т.е., только два цвета - черный и белый.  5. 20х20=400 точек. каждая по 1 байту (256 цветов = 8 бит). итого - 400 байт.

Uses crt; const    n = 10; var     a : array [1..n] of real;     i : integer;       max, min : real; begin     clrscr;     for i : = 1 to n do    begin             write('a[', i,'] = ');             readln(a[i]);       end;     max : = a[1];       min : = a[1];     for i : = 2 to n do     begin         if max < a[i] then max : = a[i];         if min > a[i] then min : = a[i];     end;       writeln(max - min: 0: 3);       readln; end.