Количество цветов, воспроизводимых в графическом изображении равно 4. разрешение графического изображения 512*64 точек. минимальный объем памяти для хранения графического изображения в килобайтах?

2байта*512*64/1024=64 кб

Var  a,b,c,n: integer; begin for a: =1 to 7 do   for b: =a+1 to 8 do     for c: =b+1 to 9 do       begin       n: =a*100+b*10+c;       write(n: 4)       end; end.var    i,j,n: integer;     a: array[1..4,1..5]of real; beginfor i: =1 to 4 do  begin  for j: =1 to 5 do    begin    a[i,j]: =random*2-1;     write(a[i,j]: 20: 15);     if a[i,j]> =0 then n: =n+1;     end;   writeln;   end; writeln('количество неотрицательных: ',n); end.var    i,j,sum: integer;     a: array[1..3,1..4]of integer; beginfor i: =1 to 3 do  for j: =1 to 4 do    readln(a[i,j]); writeln('массив: '); for i: =1 to 3 do  begin  for j: =1 to 4 do    begin    sum: =sum+a[i,j];     write(a[i,j]: 4);     end;   writeln('sum=': 8,sum);   sum: =0;   end; end.

// f# [< entrypoint> ] let main argv =     let generatematrix n m =         let rnd = system.random()         array2d.init n m (fun i j -> rnd.next(10))     let inputarray = generatematrix 5 6     printf "array: \n%a\n" (inputarray)     let maxindex =         [1..array2d.length1 inputarray]         |> seq.map (fun row -> (row, inputarray.[row-1, *] |> seq.sum))         |> seq.maxby (fun (i, sum) -> sum)         |> fst     printf "max index: %d" maxindex     system.console.readkey true |> ignore     0