Информационный объем растрового изображения размером 1024 × 640 пикселей составляет 640 кбайт. определите количество цветов в палитре изображения.

655360 количество цветов в палитре

Program primer; const n =10; var a: array[1..n] of integer; s,i: integer; begin randomize; for i   : =1 to n do begin a[i]: =random(19); readln(' ' ,a[i]); end; s: =0; for i : =1 to n do s: =s+a[i]; writeln('s=',s); readln; end. program primer2; const n =10; var a: array[1..n] of integer; s,i: integer; begin randomize; for i   : =1 to n do begin a[i]: =random(19); readln(' ' ,a[i]); end; s: =0; for i : =1 to n do if a[i] mod 2=0 then s: =s+a[i]; writeln('s=',s); readln; end. program primer2; const n =10; var a: array[1..n] of integer; s,i: integer; begin randomize; for i   : =1 to n do begin a[i]: =random(19); readln(' ' ,a[i]); end; s: =0; for i : =1 to n do if i mod 2 =0 then s: =s+a[i]; writeln('s=',s); readln; end.

№9 var n: integer; begin       readln(n);       if (n mod 10 = n div 1000) and (n div 10 mod 10 = n div 100 mod 10)  then         writeln('true')       else           writeln('false'); end.№11var n, a, b, c: integer; begin      readln(n);       c : = n mod 10; {третья цифра}      b : = n div 10 mod 10; {вторая цифра}      a : = n div 100; {первая цифра}      if (a + b = c) or (a + c = b) or (b + c = a) then        writeln('true')      else          writeln('false'); end.