Для хранения растрового изображения размером 128 х 240 пикселей отвели 30 килобайт памяти. Каково максимально возможное число цветов в палитре изображения?

program msd; uses crt; var a,l,proiz,b,i: longint; beginclrscr; readln(a); proiz: =1; while true do beginl: =a mod 10; a: = a div 10; if odd(l) = true thenproiz: =proiz*lelseb: =b+1; i: =i+1; if a = 0 then break; end; if b = i then writeln('0')elsewriteln(proiz); if (proiz> 99) and (proiz< 1000) then writeln('da')else writeln('net'); readkey; end.

находим занимаемый объм в битах

640*640*2,5*4

делим на 1024 и находим его в килобитах

4000 кб

12000/4000=3 (3 бита цветности)

не ясно что нужно, кб-килобиты или килобайты

картинка должна быть в папке с программой и быть в формате bmp

uses graphabc;

var n: string; b: picture; s: integer;

begin writeln('введите расстояние до зеркала'); readln(s); write('введите имя файла рисунка: '); readln(n); window.clear; b : = picture.create(n); b.load(n); b.draw(50, 50); b.fliphorizontal; b.draw(50+2*s,50); end.

найти сумму элементов одномерного массива. размер произвольный. элементы вводятся с клавиатуры.

program summa;

var a: array[1..100] of real;

          i, n: integer;

              s: real;

begin

  write (‘n=’); readln (n);

  s: =0;

  for i: =1 to n do

        begin

            write (‘введитечисло’); readln (a[i]);

            s: =s+a[i];

        end;

        writeln(‘сумма   элементов равна  ‘,s);

end.